le r hebdomadaire des programmes informatiques 






EDITO 



Annoncee pour la semaine der- 
niere, voila enJin le hit parade 
des meilleurs logicieis vendus 
en France. Ce ne sont pas les lo- 
gicieis qui se vendent le mieux, 
mais ceux que nous avons rete- 
nus apres les avoir testes. La ta- 
che a ete rude, nous nous som- 
mes promenes sur des dizaines 
de planetes etrangeres, nous 
avons combattu des monstres 
divers, reflechi a des casses-te- 
tes diaboiiques, (ait des parties 
de foot, de tennis et de basket, 
conduit des voitures de courses 
etpilotedesjets supersoniques. 
Nos criteres de selection sont 
tres simples nous eliminonssys- 
tematiquement les logicieis 
dont le rapport qualite/prix est 
aberrant, c'est le cas par exem- 
ple de tous les FROGG. FROG- 
GER et autres PRINCESS et 
FROGG dont les prix se situent 
entre 250 et 500francs et qui ont 
un interet tres relatif. Trop 
chers : elimines, et nous en 
avons elimine beaucoup ! D'au- 
tres logicieis par contre. sont 
tres bon marche, voire donnes, 
mais n'ont strictement aut.uii in- 
teret. Nuls : elimines. Entin. la 
troisieme categorie que nous 
avons rejete, ce sont les logi- 
cieis qui sort des imitations mal 
faites de logicieis existants. Un 
peu moms chers, ils ont de gros- 
ses lacunes et la difference de 
prix (quand elle est trop grande) 
nejustifiepasl'achat delacopie 
par rapport a I'original. Certains 
logicieis sont egalement elimi- 
nes pour publicite mensongere, 
par exemple de superbes ecrans 
graphiques sur la disquette de 



demonstration, que Ton retrou- 
ve pas dans le jeu en question. 
Certains logicieis ont meme des 
bugs et ils ne sont evidemment 
pas la INousvoulions seulement 
editer un hit parade mais, vu les 
prix tres fantaisistes pratiques 
par beaucoup de revendeurs. 
{pas tous heureusement) nous 
avons decide de vous donner la 
possibility de les acheter direc- 
tement par 1'Hebdo et ce evi- 
demment au plus juste prix ! Et 
en plus, pour nos fideles abon- 
nes ou ceux qui le deviendront 
nous les faisons beneficier 
d'une remise de 10 %. Encore 
une nouvelle etape franchie par 
votre hebdomadaire prefere : 
nous vous conseillons des logi- 
cieis que vous pouvez acheter 
en confiance - au lieu d'essuyer 
les pfatres de nouveaux produits 
dont la reputation est surtaite - 
et en plus, vous les payer moins 
chers ! 

Nous avons essaye plusieurs 
centaines de logicieis mais il est 
certain que tous ne sont pas 
passes sur la sellette : si vous 
avez un Jogiciel prefere qu'il soit 
trancais ou et ranger, ecrivez- 
nous pour nous en parler, il ren- 
trera peut-etre dans le hit. Ce 
me ■■£ : ;e e'adresse aussi a vous, 
messieurs les fabricants, impor- 
tateurs et dislributeurs de logi- 



Quelques nouveautes interes- 
santes pour les semaines a ve- 
nir : interface video pour Canon 
X07. vous all ezpouvoir f aire pas- 
ser votre X07 de votre pochesur 
la table de votre salon. Et I 'Apple 
lie, la derniere pom me - pom me 
- pomme ! 

G. CECCALDI 



LA PAGE PEDAGOGIQUE 



Logo est mort ? On pourrait le 
supposer en compuisant le 
courrier abondant que nous 
avons recu : pas de logo, malgre 
I'appel (pressant) du dernier nu 
mero. 

Basic, par contre. se porte bien 
merci ! 

P.O.E. : une operation sans rete 
nue... 

Destinee a favonser la realisa 
tion d'expenmentations infor 
matiques dans le cadre scolaire 
et pour les plus defavorises, 
1'operation P.O.E. (Pre! d'Or- 
dinateurs aux Enseignants} 
semble prendre une direction 
prometteuse: 

Un nouvel adherent, parmi les 
constructeurs, en ce qui concer- 
ne le pret de materiel aux ensei- 
gnants (operation P.O.E.). CA-. 
SIO s'associe a Hebdogiciel et 
propose le pret d'ordinateur 
PB700, un ordinateur portable 
aux qualites insoupconnees. 
La liste s'aUonge. Commodore, 



PAGE EDUCATION : 
EN RESUME 

• UNE RUBRIQUE CREEE 
PAR ET POUR DES ENSEI- 
GNANTS 

• REMUNERATION DES AR- 
TICLES (DROITS D'AUTEUR) 

• PRET DE MATERIEL AUX 
ENSEIGNANTS DESIRANT 
REALISER UNE EXPERI- 
MENTATION (OPERATION 
P.O.E.). 



Oric. Thomson, Sinclair, et main- 
tenant Casio. 

On peut esperer, pourquoi pas ? 
que d'autres suivront. 

Enseignants, prenez voire trai- 
tement de texte le plus putssant. 
ou, a defaut votre plus belle 
plume, et adressez-nous votre 
demande de prel ! 
Cette demande doit etre pre 
sentee sous la forme d'un dos 
sier recapitulatif precisant les 
objectils generaux de I'expen 
mentation que vous desirez rea 
liser ainsi que le materiel (type 
quantite. peripheriques. etc.] 
necessaire. 



UNE IDEE 
INTERESSANTE. 



Vous etes un groupe d'ensei- 
gnants (une vingtaine peut- 
etre). dans une region determi- 
nee et vous aimeriez beneficier 
d'un stage de formation ? (gra- 
tuit. cela va de soit !) Hebdogi- 
ciel peut vous aider... Faites 
nous part de vos besoins... 

P. GLAJEAN 



MENU 



APPLE II 

Guy Munerol 

CANON X-07 

Yves Burgalieres 

CASIO FX 702 P 

Xavier Antoye 

COMMODORE 64 

Jose Pereira 

VIC 20 

P-H Bersani 

HP 41 

Bruno Cartigny 

MPFII 

G. de Jacquelot 

ORIC1 

Serge Duerme 

MZ80 

M. Peignier 

PC 1211 

M. Portelli 

PC 1500 

W Von Lunen 

ZX81 

Lionel Becker 

SPECTRUM 

Luc Martinelli 

TRS80 

Edmond Carcelles 

Tl 994/A (b.s) 

Eric Geszka 

Ti 994/A (b.e.) 

Remy Potier 

THOMSON T07 

M. Humblot 



Croisade 

Page 2 

Ballons Fous 

Page 7 

Indiens 

Page 12 

Sortileges 

Page 4 

Memo 

Page 6 

Poursuite 

Page 3 

Transcodage 

Page 3 

TV SAT 

Page 6 

Scrabble 

Page 5 

Mines 

Page 9 

Caracteres 

Page 13 

Emprunt 

Paget? 

Bases 

Page 19 

Raid 

Page 18 

Annuaire 

Page 17 



LES CONCOURS PERMANENTS : 

10 000 francs de prix au meilleur programme CHAQUE MOIS. 
1 voyage en Californie pour le meilleur logiciel CHAQUE TRI- 
MESTRE {Reglement en page interieure) 



DES PROGRAMMES POUR VOTRE ORDINATEUR : APPLE II ET HE 
CANON X-07 . CASIO FX 702-P . COMMODORE 64 ET VIC 20 . 
HEWLETT PACKARD HP 41 . MULTITECH MP - F II . ORIC 1 . 
SHARP MZ, PC 1211, PC 1500 . SINCLAIR ZX 81 ET SPECTRUM. 
TANDY TRS 80. TEXAS TI-99/4A. THOMSON T07 



HIPPOREBUS trouvez I'expression qui se cache dans la 8.D. de I'hippocampe. Dec 
(solution en page interieure). 



Tipose en trois syllabes dans les trois premieres cases, le "tout" a evidemment un rapport avec I'informatique 







V 1^1 OU 4 Mai 1984 J 



Allomagne 3,50 DM - Belgiquo 55 Frs - Canada 2,50 $ • Luxembourg 57 Frs - Suisse 3 Frs - 



CROISADE 



Jerusalem. Godefroi de Bouillon y est arrive - non sans 
mal - le 22 juillet 1099. Pourquoi pas vous ? 
Chevaliers, plongez dans "CROISADE" et sortez vain- 
queur ! 

Xavier ANTOYE 
NDLRtNETRICHEZPASHLN'YAPLUSD'OCTETSUBRES 
POUR INCLURE DES TESTS DE VAUDITES. 

FX 702 P 

Mode d'emploi ; 

a) Faire DEFM 

b) Lancez le programme par F2 RUN ou Fl PO 

c) Vous dispose? de 250 ecus. 

Vous devez composer votre armee en sachant que : 

- un serf vous coutera 0,5 ecus. 

- un soldat, 2 ecus, 

- un cavalier, 3 ecus, 

- une caisse de vivres. 4 ecus. 

Remarque : I'autonomie de deplacement depend du nombre de cava- 
liers. 

Si ces demiers represented plus de 50% de vos effectifs, vous pouvez 
jouer 4 coups sans vous nounir. contre 2 dans le cas contraire. 

d) Pour vous deplacer : 

a I'affichage de "SENS ?", precisez le sens de votre deplacement : 
NW(Nord-Ouest) N(ord) NE(Nord-Est) 

W(Ouest) E(st) 

SW(Sud-Ouest) S(ud) SE(Sud-Est) 

Attention, si la machine vous renvoie alors le message "VOUS VOUS 
PERDEZ !", c'est qu'avec le sens precedent vous sortiez du terrain. 
Celui-ci est represents dans la pratique par un damier de 20 sur 20. 
Vous serez alors sur un des 4 bords du terrain. 

e) Une indication precieuse apparait : la distance approximative qui 
vous separe de Jerusalem, indiquee en lieues. 

Le FX peut alors vous renvoyer le message "ON A FA1M !" puis "QUE 
FAITES-VOUS ?-. 

Vous pouvez alors nourrir votre armee avec (N)ourriture, ce qui dimi- 
nuera vos reserves vivrieres. ou non en tapant n'importe quo! d'autre. 
Mais dans ce dernier cas, au bout d'un certain moment, votre armee 
diminuera a cause du "regime" que vous lui imposez. 

f) A la suite de quoi s'affichera un des messages suivants : 

- R.A.S. (rien a signaler) 

- UN HAMEAU ! Votre armee se trouve alors dans un village. Vous 
pouvez le piller avec (P)illage et vous recupererez alors un butin varia- 
ble. Maisquelquesunsdevosserfsmourrontaucoursdelamiseasac. 

- UN BOURG ! Vous pourrez acheter des hommes et du materiel, 
suivant votre bourse bien sOr. 




g) Ce jeu serait morne sans aulres difficultes. Rassurez-vous ! Vous 
pouvez guerroyer. Le FX vous indique un certain nombre d'assaillants. 
Deux possibilites s'offrent a vous. (A)ttaquer ou vous defendre (en 
entrant n'importe quoi d'autre) ;maisavantde faire votre choix. sachez 
que : 

- un serf a pour potentiel d'attaque 1 . de defense 5 

- un soldat 6 3 

- un cavalier 8 2 

Si I'adversaire a un potentiel total plus eleve que vous, vous etes battu 
et vice versa. 

Votre potentiel total est diminue si vos hommes sont affames. 
Maintenant, partez en CROISADE et bonne chance ! 



1 VDC :UR!T 48:fl= 
258:PRT *«W« 
MOISfiDE «*• 

:ESE 188 

2 I=IHT (PBK1*9)» 
(IHT ':Mt*3)/l 

nm.m 

18 Iff "SENS ",HS: 
S=S*1 

11 IF UMTS 1=1-. 
81 

12 IF H!="S";I=I*. 
81 

13 IFHi=TMI=IH 

14 [FB=ViI=H 

15 IF H»="HE";I=It 
.99 

16 IF HMD"; 1=1- 
1.81 

1? IF Ht="SE": 1=1+ 

1.81 
13 IF HS=*S»";I=I- 

.99 

19 IF INI I=8!l=l» 
FRBC I:6SB 169 

28 IF FRBC 1=9; 1=1 
Nl It. 81:658 16 



21 IF INT 1=21 ; 1=2 

8fFRBC I:6SB It 
8 

22 IF FRBC I=.21;l 
=IHT I+.2S6S8 1 
68 

23 J=R»(SSR ((18- 
INT I»2>«18-F 
RBC I*188)t2))» 
5,8! 

24 PRI "JEPUSBIOT 
"!J;» LIEUES" 

38 IF D/<B*C»»4(5 
;Y=2:S0T0 32 

31 V=4 

32 IF S<Y THEN 48 

33 IF E=8 INEN 37 

34 FRI "-ON 8 ERIK 

!":GSB 138: IF 
}t"N" THEN 37 

35 E=INI (E-tB+C+D 
)/25):lFE(6;E= 
8 

36 6SB 146:5=8:607 
58 

37 7=1-.8U(S-1):6 
SB 158:656 148 

48 IF IM6;K=14.64 
:L=!4. 1*18.8? 



HM2.WMI.1 
rsp=17.l9!8«!9, 

41 IF I<IB;6SB 128 

51 IF :=-■!• mil 
F [»« IHH ' 

T : '■■ '-W HMF.HI 

52 IF RflNti.7:PRT 
"II UH 6UET-fiPE 
IIS it":60I0 68 

53GSB 138: IF i>"P 
" THEN 68 

54 IHHIHT (BMW 
B;i£=Etiltl W 
|t6):B=INT (B-R 
RHH18) 

55 FRT "St BUTIN t 
i":6SS 148:6810 



69 IF UN; IF !>0;l 
F I*P;IF 1*8 TH 
EN 76 

61 V=INT (EBN»*5Bt 
25):N=IHI (RSNI 
«75»37):X=!IHT 
<ERHt*25+12) 

62 PRT "JE V01S-TR 
HD(V*H«,I);" E 
NSES!S":GSB 138 
:IF *=T THEN 
68 

63 U=YfK*6«t8:Z=< 
8*5+C*3tD*2)t(l 
-S/186) 

64 IF Z>U THEN 67 

65 PRT "VOUS ETES 
E9TTl":T=.7 

66 6S8 159:6SB 148 
:69T0 18 

67 PRT "VICT0IRE!" 
:I=.9:80TO 66 

68 U=V*5+»»3«»2:Z 
=!BtC*5*D<8>«(l 
-S/168):60T0 64 

78 IF 1*5.13 THEH 



71 PPT ' 



I B00R6 



88 IF Itl8.!8;PRT 
"R.fi.S.":6OT0 1 



.. .. . E1£S 

iii> ;e 

- 
Z"i6S( II 

18! IHP"SE- : : : : : 

- .: 

EN 16! 
!82 5=8»R:6S6 118 
193 IN? "SI 

:F=Rt2:IF F)R T 

HEN 183 

184 C*R:6S8 118 

185 MP "CRVBEIERE' 
,R:F=R<3:!F F)R 

THEN 185 
1«6D=S«:ESE YA 
IB7 Iff "CBISSES DE 

VIVRES", R:F=Rt 

4:IF F)B THEH 1 

87 
168 E=E*R:6SB !18:F 

=8:RET 
118 B=B-F:PRT "VOUS 
BVEZ":fl;' ECUS 

":RET 
!28t;=3.!4:L=4.16:lt 

=8*7. 16:0=8.1 

5:P=9.14:{=16.1 

8:RET 
138 INF "611 FBITES 

-VOUS ",i:RET 
149 IF B(8;B=8 

141 IF C(8:C=8 

142 IF K9;D=8 

143 PRT 6;' SERFS": 
PRT Ci" SOLDBTS 
":PRT 51" CflVBL 
IERS" 

144 6SB 118 

145 IF B*C*C=8:PRT 
"-BBBHNH ...":P 
RT "VOUS N ETES 

PLUS !":EN0 

146 PRT El" CBISSES 
":RET 

156 B=INT (6«T):C=I 
NT (C«T):D=IHT 
(H*T):RET 

166 PRT "VOUS VOUS 
PERDEZ !":RET 





;qppie 



CONFIGURATION UNO : 

-APPLE lie 

- MON1TEUR II 

- DISK n AVEC CONTROLEUR 

CONFIGURATION DUO : 

- APPLE lie " 

- MONTIBJH ii 

- DUOOISK 

- MCWFTEUff 

- CAffTE APPLE fELL (VIDEOTEXTEJ 

- SOUPIS APPLE + MOUSE PAINT 

- PRO-DOS APPLE lie 
LOGJCJELS SUR DISOUETTES 
POUR APP1£ lie ET APPLE II 48 K 
BOOHS 

M ATHS 1 

d : ■■ !■ y-.-n- - <■•-. ■ •<■ ■■■. 
loganthmes « exponenlielles 
MATHS 2 

• suites « integrates 
MATHS 3 : 

• bigonomeirie 

• nombres complexes 
PHYSOUEI 

• in'JL/'ii'jn et condensateurj 

• produit vectortel 
PHYSHDUI / 

EDI-LOGO 

Le tameux langage LOGO, en Francois 

CARTE PORTE-PAROLE 

Une voix clarte el articutee vous parle 

en Francais 

PORTE PAROLE 
Vowe rnic/o-ordinateur peut partef t 
Ecoule* 1 Une vow (Lwe et artKulee 
vous parle en fiancaii. 

VI-FI NATHAN 

LOGICIE LS EDUCATIFS 
POUR APPLE H ET He 

• Tamtiioie mof| liMK^n 

• Trtpkne re^fj.ve en (^ilcuUnt 

• La bc«e *u bon <Soimant itecture) 

• lOiwi el Gteiel |iet[me) 



Prix TTC 




I2.S00.O0 


□ 


17500.00 


a 


5.790.00 
t 209.00 
557.00 


D 

a 
a 


295.00 


'-) 


295.00 


a 


295.00 

295.00 


a 

D 


295.00 

295,00 


D 


295.00 


D 


1.490,00 


a 


1 395.00 


a 


1 395.00 


a 


395.00 
395.00 
395.00 
395,00 


N 

!) 
LI 

a 



LOGICIEIS DE JEUX 
POUR APPLE II ET lie 

• Da&tdlus 

• IFR ;imuLaleur de vol 

LOGICIELS 

POUR LA VIE PROFESSIONNELLE 

POUR APPLE II ET He 

• OJcuiaEnee 



COMMODORE 
Commodore 64 Pal 
Lccieur dedisquei Vic 1541 
Trscevr de courbes Vic 1520 
Cable pe'iiel 64 
Cable video 61 



lor 

Prix rr.c 


e 


2990,00 


1 1 


3.380,00 


i ' 


1 950,00 


1 1 


150,00 


i ; 


150.00 


u 



zx spectrum 



INTERFACES 

Spectrum 48 KPAL 

Carte fl entrtei/sorires 

Cane 8 ent/£« analogiques 

intetface manetie dejeux 

Manette de jeux 

Modulareuf UHF noir et blanc 

Impnmanle Alphacom 32 

Amplilicateur sonoie 

E>ieniion32 K 

Interface Ceni(onics/RS232 

C^ble pour Centronici 

Boite 5 rouleai;» de papier Alphacom 32 

FJoTte 5 rouleaux de papier 

pour impnmante SINCLAIR 

Co/ don Peritel/Monncui - 

Adapl3(eur Peritel 

Interface manetie', dejeui programmablei 

JEUX 

Panique 
Mined oui 
Space Intruder 
Androide 
3D Tank 
Mcteorids 

Gold mine 
Spawn ol evil 
Road toad - 



JEUX DC REFLEXtOPJ 

Slmulaleur de vol 

Othello 

Awafi 

Manager 

EOUCATON 

Math 



Prix TT.C 




1.965.00 


: : 


395.00 


1 1 


395,00 


1 1 


245.00 


I I 


120.00 


1 1 


190.00 


1 ! 


1 190,00 


1 1 


160.00 


1 1 


560.00 


1 1 


650.00 


II 


1 50.00 


1 1 


1 50,00 


u 


175.00 


1 1 


95,00 


M 


360.00 


I 1 


395.00 


U 


75.00 


(1 


86.00 




86,00 


1 1 


75.00 


i 1 


75.00 


1 1 


75.00 


1 1 


75.00 


1 1 


75,00 


1 1 


75.00 


II 


75.00 


1 1 


75.00 


1 1 


95.00 


1 1 


95.00 


1 1 


95,00 


I 1 


95.00 


I 1 


95.00 


I 1 


95,00 


1 1 


95,00 


' 1 


95,00 


n 


75.00 


n 


54.00 


1 1 


115,00 


1 1 


140.00 


1 1 


54,00 


n 


54,00 


1 1 



GESnON 

Oirecteur Financier 
Gesbon de ficbieri 
UnUTAIRES 

Devpac Assembleur/Dfsassembleur 
ZX Trans 



260.00 
160.00 
95,00 



120,00 


n 


120.00 


1 1 


120.00 


i 1 


120.00 


1 1 


120.00 


1 1 


1 20.00 


1 1 


120.00 


u 



125.00 


11 


125,00 


11 


125.00 


1 1 


125.00 


U 



NOUVEAUX LOGICIELS "HAUTE RESOLUTION " 

- ANT ATTACK 
-FRED 

- FIGHTER PILOT 

- NIGHT GUNNER 

- BLUE THUNDER 

- BLADE ALLEY 

- HUNCHBACK 



VI-FI NATHAN 

LOGICIELS POUR SINCLAIR SPECTRUM 
• Croque nombrci 



THOMSON TO/7 

PROMOTION TO/7 



MATERIELS THOMSON TO/7 
Unite centrale 
Lecteur cnregistreur 
Exieniion m^moire 16 K 
Controleur com 
Son et jeu* 
Memo Baiic 
LOGICIELS ANSWARE 

i-i.<1,N r f.,ii:,:i.!i 

Carnet d'adressei 
Gtfrez voire bibliothtque 



Gere 



iilifllfS 



NOUVEAUX LOGICIELS 

EDUCAT7FS 

THOMSON TO/7 

Initiation au Baiic (vo! 4) 

La de des chants 

La ronefe des formes 

LOGICIELS DE JEUX THOMSON TO/7 

Ouest (module de base] 

OuestfK7Hisioi(e-Geol 

OuestfK7 Sport) 

Quest |K 7 Sciences et Dccouvertwl 

Yams, poker, solitaire 

Cockta.l 3 



PRIX TTC 




3.450.00 


a 


Prix TTC 




2 480,00 


1 1 


800,00 


ii 


750.00 


1 1 


850,00 


ii 


600.00 


1 1 


480.00 


i.i 


450.00 


n 


480,00 


1 1 


490.00 


1 1 


525.00 


u 


195.00 


n 


1 75.00 


1 1 


145.00 


ii 


425.00 


n 


325.00 


1 1 


65,00 


1 1 


65.00 


M 


65.00 


1 1 


175.00 


11 


95,00 


1 1 


125.00 


1 1 



7X81 

Clavier m^canique "ABS" 
Caite exienston 64 K 
Carle genewtf ice de car.xtfres 
Carte soncne |5 ocuvesj 
Cane entrees/sorties Ifl E/S| 
Carte 8 entrees analogiques 
Cmxc interface manetie dejeui 
Manette dejeux 



Pn« rrc 




SflO.OO 


M 


140,00 




8 1 5.00 


1 1 


432,00 


1 1 


4 37,00 




395,00 




J95.00 


I 1 


245,00 


I 1 


120.00 


u 



Interface Centronics 

Imprimante graphique Seikoscha 100 A 

Imprimante alphacom 32 

BoTte 5 rouleaux de papier Alphacom 32 

Boiie 5 rouleaux de pap<er 

pour imprimante SINCLAIR 

Extension 16 K 

NOUVEAU PRODUfT : 

CMOS memoire conslante |2 KRAM) 
Module 2 K supplemcntairejusqu'a 16 K 
JEUX 

Patrouille de Tespace 

Scramble 

Re* Tyrannoiaurc 

Gulp 

Stock car 

Panique 

Casse briques et pendu 

JEUX DE REFLEXION 

Othello 

Simulation de vol 
Tric-Trac (Backqammon| 

VOUS 

Biorythmes 
Chi 



Vu-calc 

Vu-file 

ZX Muinlichiets 

UnUTAIRES 

Assembler Ariic 

Morirtn.jr-desasiembieur 

Fast load monitor 16 K 

f.M bad monitor 64 K 

ZXTn 



990.00 


n 


2 500.00 


1 1 


I 190.00 


i 1 


150,00 


U 


175.00 


n 


360.00 


u 


450.00 


n 


55.00 


LI 


65.00 


n 


65.00 


n 


7S.00 


1 1 


75.00 


1 1 


75.00 


ii 


75.00 


1 1 


75.00 


1 1 


75.00 


u 


95.00 


n 


95.00 


1 1 


95.00 


n 


85,00 


ii 


85.00 


u 


85.00 


ii 


85.00 


ii 


95.00 


ii 


110.00 


n 


110.00 


1 1 


150.00 


1 1 


75,00 




75,00 


1 1 


75.00 


1 1 


75.00 


1 1 


75,00 


1 1 


75.00 


1 1 



BON DE COMMANDE 
TARIFS AU 4/5/84 



| Prtnom 
J Adreise 



| Code Postal 



iinczlair- ZX8I 



vIHe . 

C« prix sont indkatlfs et peuvent etre modi- 

fles sans preavts. 

Prodults dlsponlbles dans la Hmiie de not 

stocks en magasln. 

Parttdpatton aux frals de port et d"expedrOon 

en recommande pour les loglcfets ; 



I LA REGL£ A CALOJL : 

| 65/67, bd Salnt-Gennaln, 75005 PARC 

I Tel : 325.68.88 

J Tetox.ETRAV 220064 F/1303 RAC 



""X 

J 



TRANSCODAGE 



Ce programme prend toutes les conversions utiles a Tin- 
formaticien pour les nombres exprimes en binaire, deci- 
mal, hexadecimal et memeBCD : Bref, I'A.B.C. du metier... 

M. PEIGNIER 



■■■ ■ B ;.-::>.' * >« ■St')', ■ -fir 
KCOCWQS Bi-.flIRF. £N:";"D 



rw. ■ , 



=PI>7 



9 P«t[NTTflBC2?J ;■'^1£J"f^D£CIr'flL-2'■ -PRlNTTflB 
(2?; ;'BCD>^ ifftlNI 

IB PR!NTTft8C!5J;-'0ECinfiL EN:';" BINSIRE 
'■)'■ tpftWI 

'2 PRINT TrtBC 27: ;"MEi'«DECinflL=5'":PRIhI7ft 
Bi2?j;'BXO-6". PRINT 

14 PRINT'POUR REUENlR fl 9CO EN: BIN 
flIR£=?-;PRlNT 

15 PRINT'XE TABLEAU HEX* 
BECIWL-e" jPRI.nT 

la pRifft nFiTjret sijr -o- oec 

IfH.-5":PRIN* 

17 PRINTTflBEms-tOpDECIfW. En:-';- BIN 
ft!RE-f»" •■PHlttl 

IB PRiNTTfl8t27) ;"BCD=B" : PR I NT :pRINTTflBC 
2?>;-QeCirW.-C* 

19 FaW-IT032=SeT}(,2i:SeTX.37:NE>iTX 

20 FuRT = 24T03?:SET32,T;f:£>iTY 

25 G£TG«:IFG*--'"7mEnGCT025 
25 !FG*-">"TmenG0TO1BB 
2? 3FG« = ' , 2 i 'TriENGOTO380 
28 IFG«="3'7h£nG0706B8 

33 IFG* = "S"TW-nGCI7uI288 
32 lfG*="S , TMENGOTO!108 

34 ]FG*-"6' , IHENG0T0ieeB 
38 IFG*="7"tH£NG0TO280B 
3B IFG*='8 , *THEM6DT022B8 
48 IFG« = "3' THEHGOTOI700 
42 IFG* = "(VTH£NG0TD23BB 
44 IFG* = ,, B"ThEnGOT027BB 
46 IFGt = "C' , In£NG0T025eB 
93 GOT 025 

188 REn CBC8C8BIHi c 'IRE--DEr:innLC8C8CB :PR 
lNf'B":CLR ' 

105 PRINT'Ocnnez uoiri nor=b-» an blnair 
•-:INPUTNB« 

1 18 GOSUBS008 

1S8 PRInTnb*;"-";INTCiO 

196 K-B 

199 GETG«.IFG* = ' , '*Th£n193 

280 lFG* = ' , a"THENI 

281 GOTO I 85 

388 REn C8C9CBBjNflIRE--HEXi t iO£CinAtC8C9C 



<-PRIN' 



:CLR 



318 PRINT "D<wv« * «,oir« fiomBr. *n binoir 
f:INPUTNB*^-4 

320 G0SUS51BB 

350 PRINTNB«;-=" IB* 

368 G£7G« .IFSt = - 'TriEN368 

378 IFG*»"a*TtfENI 

3B8 CLR:GOT33l0 

566 REn C3C6CBi:o8lNp.IRE--9CDC8CSCaC8:PR 
INT"B":CLR 

685 PRlNT-Oonr-i: u oir» noobr* «n binttir 





wf« 


1 


t " :;r.Pu7'.3*.** = N9* 




6: a G05U3SBBB 




6/fc -.ii = £-Ri[;,iH((;j;GOSUB5680 


63B NB*=«* 




6^0 pRiNrr*P»;-»"iB« 




650 G£TG«.|FG*-' th£n6S6 




660 i-G*='0"TNENl 




670 CLR:GD7a685 




1088 REP CeCBCBCBOECinftL — BC0C8CBC8C8;P 


RIM t" -CLR 




1818 PRINT 'Oofipa* unlr* no 


or* tn acclo 


o. ■ sIHPUTNBt 




1828 &0SU356BB 




i iee ■ > r;ntmb< i -* ;B« 




i IBS GE'G*.lr"Gi = ' "HEN? IBS 




1 110 ;fg*-''[ttm£n' 




2720 NB«'STR«[lNTC«JJ:GDSLl356e0 


2725 N3**X* 




2736 PRlN7N9«r' = " 19* 




2735 GETGi^lFG**'' 1MEN2735 




2748 IFBt'-'a-THENI 




2758 CLR:G0T02785 




4BB8 Rert8CBC8C8SQUS-PR0GRA,-!nC«**E>'W)£ 


ClflAL--BlNPIR£CBCB[;BCB^=LE 


CNB*) 


4005 U«=nlD*(NB*,T, 1 ] 




4B1B IFV* = , '0' , TH£Nfl* i "e088" 


GO7U4B90 


4015 IrU*-"l-Tr>E,N.A*»"BBBr' 


G0TJ4B9B 


4028 IFU*^'■2"THENl ( '*'■■eBIB'■ 


GOT048SB 


4B25 IFU*-' , 3 i, THENA* = , 'BBM" 


GDTU405B 


4030 IFU« = - , 4' , THEN** = , '0;80-' 


GQTCH8SB 


4835 IFu« = -5 i, THENP* = , 'GlB|-' 


G0T0489B 


4848 J.FU«-' , 6 1, THEN*-*- ,, B1l0" 


GOT04B3B 


4845 IFU*--7"THENP*- ,, BJir- 


G0T0489B 


4850 ]FUt = ■•B"T^^ENfl*-■' IB8B- 


GOTO4890 


4855 lFU* = ■■^■■7^lENfl*-"lB8^■ 


G0T0469B 


486B IFU* = "fl"7MENP.*- ,, l8.B'* 


G0T0489B 


4B65 IFU« = "B"TnENfl*- , 'lBl 1" 


GDT0q89B 


4870 IFU*-"C 1, THENP*»'1|0B" 


G0T04898 


4075 IFU*»' , D"THENri*=' , MBr' 


G0T0q898 


48BB IFUt-^E-THENC*'"! , IB' - 


G0T04B9B 


4B85 JFOi=-F-TH£Nft*-"llll" 


G0TD4a9B 


4090 8«=Fi*-'3* 




4095 T-Y-l ;IFT.07rfEN411B 




4108 GO7D400S 




■1118 RETURN 




5008 REnC8CBCBC8C8S0US-PR0 


«finrlE***BINfl 


IRE DEClnflLC8C9C8CBC8--X=8 


T=U£N(NB*J 


5018 U**n[0*CNB*,T, l ) 




5B28 U=U0LCU«J 




5838 S=U*2T>< 




5B48 K=K*S 




5850 X-X«l lY-Y-l :IFY=0Th£N 


870 


5860 GOTO5B10 




5870 RETURN 




5100 R£nC8C8C8CeC8S0U5-PR0 


RftfinE***BINA 


I RE- — HEXWECI nRLCBC8C8C8C8 


T=L£NCNB*>3 


:?=4 




5105 IF~r>0TMEri5125 




5110 T-T-tl :]FT>BTHENS125 




5115 T-Y+l :]FT>B7MEN512S 




5128 T=Tt1 :IFT>BTNEN512S 







■ ■■.-■■.■ 

"28B REnCBCBCarn ffl ■ -•C8C8C9 

CB'MINl P 

12IB PdlKI _"--->■• --.-■ --.--.,-■ n 
;r«3i 

;■ ■ ■■ 01 

1215 for*" ran -*«■ e 

I23B PRINTS* ;■ • ;B* 
IJ3S BETQ«-(FQ«-- ?HCni335 
124B IFG«»'0' - THEM 
1245 CLRiGD'012i3 

1488 REnC8C0CBC8OECin'»L---nE»'flJECjmuCB 
CBCBCB:PRIf.T-fl' .CUR 
1405 PRlNT"Oonr'«i voire romOr« «f oec;« 

Q I ■' ■ I ^PU^^3* :«* = N8* -B«'" ' 

141B G0EUBS5BB 

1415 K*"NB*'N0*"8*'B*-"" :GDSU35I0B 

1420 N8«"K« 
J42? pRiN^a«r'-';B« 

'430 G£TG*viFG*-" Tn£Ni430 

1435 lfG^'O'-THENI 

1440 CLRiGOTOI405 

1700 REn C8C8C8BC0---DECmM_CBC8CB-pRIN 
T"B"iCLR 

1718 PRlNT"Dor>n»7 uoirt TOrrtJf* «n bco" : 
INPUTNB*:?"4 

1715 G05US6BBB 

172B PRlNTNB«r-";B* 

1723 GE7Gt;iFG«*--TM£N1725 

1?3B IFG* = > 'Q"TKEN1 

1735 GO7OI710 

2B0B REP C8C8C89i:D---BINflIREC8CBC8:PRIN 
T»B* :CLR 

2818 PRWDorT'** W.rt nonBr-i in bed": 
1NPUTNB*:2=4 

2815 GOSL56B0B 

2828 K«=NB* :nB*=B* :B*»" " :G0Stl85988 

2825 N8*»K* 

2838 PRINTNB* ["""'jW 

2035 GETG*:lFG*-"-THEN2B35 

2840 CLR:GCJT02SB5 

2845 CLR:G0TD2B1B 

2280 REH C8C8C8BCD— HE)tflDEC:f1flLCflC8C8: 
PRINT"fl" :CLR 

22B5 PRlNT'Oonfui ^o'-re ro.-nbre tr> bed": 
INPUTNB*;2^4 

2218 G0SU86BBB 

2215 K*»N8* ^NB*=9* ;B* = '' * :G0SUB53B8 

2220 NB*=9*-'B* = "".G0SLiB5IB8 

2225 NB«=K* 

223B PRINTNB* ;■' = " ;9* 

2235 GETG*:IFG*^"' , TM£N2235 

2240 IFG*--'D' , TMENI 

2245 CLR;G07022B5 

2388 REn E8C8C8HEXflDECIf1flL— EINfURECSCB 
CeCaiPRINT'O-'iCLR 

2385 PRIfT'TJorrni votr» no*bre «n hexoo 
eclmal "iiNPUlNB* 

2318 GOSU34B0B 

2315 PRINTNB*; ,,j >- ;b* 

2328 getg«:ifg*-"'tmen232b 

2325 ;fg«="q ,- th£n; 

2338 CLR^50T02385 

2588 REn CBC8C8rtE>MJECjnftL--DEi:irW.C8C8 
C8C8:PRINT' , 0' , ;CLR 

2585 PRlNl"Donn«i voir, novort *n ^e^oO 
eclmol " :JNPUTN3*-K* = N8* 

25IB G0SUB4BBB 

2515 MB«-B*:G0SUB58BB 

2520 NB«=K* 

2525 PRlNTN9«i-=';INTCKJ 

253B G£TG*:IFG** lP TMEN253B 

2535 IfG«'"a iP TMENI 

2548 CLR-G0T02S85 

2780 R£n C8C8C8nEX.lD£CinflL--BF.JC8C:8C8Ca 
:PRINT"iO-:CL6! 

2705 PRINT-Oonr.ti vdrt f.r«o"i tn oexod 
scimm ":INPUTN3*-X*=NB* 

277 B GOSU3408B 

2715 NBi-Si-OOSUdSBBCi-Bt-' 



3 ; >--. 


0«-njD#(NBt,*.* 


■ 


■■■ 


IFV- 


>;hena«. e- 


«JTi?S7Pli 




IFW. 


... , 


wrosviB 


■ .... 


j..,. 


BlHO*5*>'2 


■GOT 05V IB 


5145 


.!'■■ 


. ... 


] . 


S : ! B 


; . >.. - 


;.■■■■■. 


',15-r;- 


1FV- 


Oi ItGfM* " 


*^16B 


;f%m 


BTl WW '; GOT 052 16 


-.■■-,. 


IFU- 


l lTl€n*W- 


'-G0T0521S 


5170 


iiv= 


■ BBBTnENiO*" 


8 -GOTOS^lS 


5175 


IFU- 


|8BiTmE^4** 


■ ' . MB 


5180 


:-■- 


ia!07«ENP*» 


A" :\iQTQ5i;e 


51B5 


l-',- 


10. ITHENfl*- 


■ 


■:■;• 


IFU' 


1 I00TMEN"*' 


C-:GOT052lB 


5^95 


IFU- 


I 'Bpl"^^^*^ 


D":GOT0Si'IB 


i2W 


IFU- 


1 1 I0TMENW*- 


■ . . 35218 


52B5 


:■■■■ 


! 1 1 I7HEN*«- 


F-.&OT05/16 


521B 


Y-Y- 


4:ir"Y>0"M£N 


-i*&3T05733 


5215 


Y.-- 


1 ^IrY)B7n£N?'^--G07D5'/J5 


5228 


Y^Y- 


i j;FY>H7HE**-7'K>TaS235 


5225 


Y.Y, 


1MFY>BTNEN 


»1 :G0T05/3S 


5230 


IFY<8IfC'>525a 




5235 


B*>H 


*-e* 





524B ]fr 



,r .'-. 



■ ■ '■::: 



. ; ' ■■ E 
:GOT356K 

■Go^a^o?^ 

.60T3563I 

-bOTJ5C3.- 

.G0'3iG3^ 
:GDT0S68S 
:G0TQ5695 



524S &0T35125 
5256 RETURN 

5688 REnCBCBCBCBSOUS-PROlRAm.l »■ 
--BCDC8C8Cet:B-■T=LEN[^B^■■ 
5616 Ot=nlO*C.^3*,Y, i . 
5626 IrU**'B'THei««-' , B« 
5638 IfV«-"i"THEN!M»'B« 
5648 ;Fv4--2'lhCrVU BB 
5C5B lfl**»*3'YHEf(fU»'B0 
5655 !Fw«»'4'THENfU»'e i 
5668 iT'Jl- "f 'Tw£n«*=-0 V 

5C&F ;ru«-' 6T".;-,nt' r- 

56,~0 It"U«-'?' 1 THCNA«. t. 

5675 lFU«=-a"TNENfl*='l8( 

5688 IFU«*"3"Tn£Nfi*-"lBC 

5695 B(°A*>B* 

56S0 *-Y-| :Ifr^B7n£N5?aD 

5695 GOT05CI8 

5708 RE7URN 

5SBB K£nC8C8C8CBS0LjS-PR0GRfl.in£*J 
L---BlNFiIRSC8CBCBCB-NB=UflLCNe*1 

5905 F0R>-1 ;088:««-'B' 

5918 1FCNB'2-INTCN8'2)K>0THENfl* = 'r 

5315 3*-fl*fB« 

S328 .s9=>]ritCNB'23:IFNB J B7N£N5938 

5325 NEXTX 

5930 RETURN 

6000 R£nC8C8C8CBS0Ui-PRGGi;inn£*iiBC0--- 
DrClnr»LCBCBC8Cece--Y*l.ENtN8*D-3 

6865 IFY>8lNEN6025 

66,0 Y=Y-1 :[FY>BTHEN6Q25 

6615 Y^Yt 1 :IFYJBT!1E--C025 

6020 T'Tti :JFY>BTMENe02S 

5025 v* = nIO*tNB*,Y,?j :U=U|4L(U*3 

6038 IFO=BTMENn* = i, 6 i ' :GDT06B9S 

6835 iru>lTHENfl*="l" :GOT06835 



■ *D£Cinfi 



6646 


JFU 


1BTH£Nftt--2" 


&OT06B85 


6645 


IFU 


1 lTH£Nfl*="3- 


G0T06885 


6650 


IfU" 


160Im£nFi*-"4 


■-G0T36BB5 


6860 


IFU 


18.7HENP*>"5 


.•G0T06B85 


6065 


IFU 


1 IBTNENOf-G 


:GOT06BB5 


6670 


IFU- 


1 1 ITN£NP*>"? 


-GOT06B85 


6073 


IFU 


1BBBTm£nO«='B" .GDIU6U9S 


683B 


i. e u 


i0B;TM£NP« = "9'■ :G0T0BB85 


6685 


Y-Y 


4:!FY>BTHENi 


4 iGOTOSl IB 


689B 


Y=Y 


1 :IFY>BIHEN2 


3;GOT06I IB 


6.B6 


Y»Y 


1 :[FY>0ImEN? 


2:G0T06I 10 


6105 


Y-Y 


1 Um8TH£N2 


1 :GOT06. IB 


6. IB 


IFT 


8INEN613S 




612B 


B*- 


*tB* 




6125 


IFY 


0TMEN6135 


-— 


5.38 


r.riTn^B?-; ^ 


• ^ 


D135 


RCTL 


m 


n # 



80 



POURSUITE 



Voiciunlogiciel pour deux joueurs. Lunpiloteunevoiture 
et doit echapper a I'avion pilote par I'autre. Laviateur dis- 
pose de deux types de bombes pour stopper la course de 
la voiture. Chaque fois que I'ecran est parcouru, I'avion 
passe plus pres du sol. Jusqu'a I'ecrasement si I'automo- 
bile est habile ! 

La voiture s'arrete avec CTRL, double sa Vitesse avec 
SHIFT (a gauche). 

Lavion va deux fois plus vite avec "-*", et largue les deux 
types de bombes par DEL et SHIFT (a droite). 

Serge DUERNE 




0^ cA 



_:oo car ERG: INK2! POKEftia, 1": CL5: CC-S'JBB 

30 

.110 ci.5:f , 0PI-CTP3B:P'J^e-»'0Bl"l,ZO 

_I20 cjKE40[ie: *I, I 1b:ii£/T 

_J3P PLOTl,2*,2('JPl :'IU,26,3 

.130 BE" CPEATION DES CARacrERES 

_:ro fopi-46336Toi?oi3:reac«:pokei,a:n 

EXT 

_ISf> I-IC0ltMU>0T03* , fP9KC»U0*HU l 32;N 

_1 "0 PLOY 12, 3, •i)kln>-:PLOT12,6, ■nopor " 



I PL0T6 



LOYie,: 



■Lone,- 



'LOTl 



_220 PLOTO, 7,6:PL0T0, 

0T1 1,3,?: PLOT 23,*, 3: PLOT 23, 7, 3 

_?30 PLOTO, 2, 4 -.PLOT I ,2,-»«»-:PL< 

_2a0 A«--.bt *:*«-CHP«i I6i 'CHR^t : 



i c*--^--c»"CMR»ii. 

M-CMR*' tftl 'CHMIi 
I PIOTO»I,23,A«: I- 



■ chp«i3i *c«:d»- 

i:PLOY1-2,23,- 



_200 


PLOTU, 10«F,B« 
IRU>34YMENPL0 


TU^ 


' Yf 


LOTU-2, 1 




1!F-F*1 








_300 










_310 












PEM GESTION 


JEPLACEMENTS 












_340 


IFPEEK'RZOOJ- 




HEN 










MEN 


-1-2 










IP-IIUA- 


_3/U 


IfPEEK IHiOai- 


IAO 


HkN 


l-l:uB-u 












_3»0 


IFl--IORI-OTt 








_400 


1FTIR.]T„FHPL 


DYO 


e-T 


f,S*:plo 


_110 


IFYI-ITMENPLO 


TO, 


• X-f 


,S»:PLOT 


^•F,fi»:G0SUB33O 








.430 


ten 
































rj« 












23)1 




0«Tt 


•23I0R1 I*2aVAAMB 


0*T 


F-23 



c 



■ISO IFTJ-16 


FTHENT-O: TIP-OlREtURN 


_d90 PETURN 




_300 REN 








_B20 BEN 




_S30 PLOTVB, 




_340 1FII-UB 


NDlO*X»F-2310R[I-l-VBANDl 


o.x«F-?aioR< 


•2-VBAND10*X>F-23 






_330 IFXJ-16 


FTHENK-O: Tt-O: RETURN 


_360 RETURN 




_370 REM 




_3BO REM 




_390 REM 




_6O0 EXPLODE 


UA1T3: shoot: EXPLODE: UA I T2 




_S30 PPINTA«-N-A»-P-A*-A POURS 

ITE" 

_A3P PRIHTA*-H-A«-'"A«-C PSENOM D'J CU 
D'JCTEUft. . . -: : IWUrSSK 

_660 WAIT30:PPINTA»-L|"A»'F"A«-F PfiEMG 
HE L'AUIATEUP. . . '! : IMPUTSAt 



R1N 



1 OVE •>• 



ESISTE ' 



::pla-i-c, o.o.o: 



_?30 OAT A3, 1,8, I 3, 3 I, 3 1,1 3, 6, 3*. 36, 34, 

A3, A3, 63, A3, O.O, 0,0, 40, 62, 63, 6 

3,?a 

_?*0 DAIA36,63,63, 31,13,', 1 ,7,0,63,63, 

63,63,63,60,36,0,32, 16,36,60,6 

3,0,0 



,33,63, 12, 12, 12, 19 

_7AO DAT AO, 0,1, 3, 7, ?, 13, 13, 0,0, 32,4=, 3 
V, A3, 63, 63 

_??0 OAYAO. 24, 60,62,63,63, 63, 63, 0,0, 2, 
13,31.63,63,63 

_7B0 OAT AO, 0,32, 46,36,36, 48, 32 ,3 1,63, 3 
1,31. 13,2,3,0 

_?90 0ATA63,63,63,33,33,33, 1,0,63,63,6 
3,63,62,60,36,0 

_900 DAIA63, 63, 63,63,63, 31 , 13,6,32,48, 
60,60,36,48,0,0 

_B10 DATAO, 0,42, 63,3! , 63, 21 , O, 30 , 63 , 63 
,63,63,63,31,33 
_02O REM 

_B30 REM REOLES OU JEU 
_840 REM 

_830 A«-' -4CHR*I2?I :PRINT 
_BO0 PH1NTA*-N'A«'P-A»"E P0ORSU1TE RE 
GLES DU JEU" 

_870 PRINTA»'N'A6-P-A6*F POURSUITE RE 
GLES DU JEU" 
880 B6-- •<CKB%f?t>i>- SERGE OUEPNE 



_evo fori 


ITOLEN 


m 


POKE 


BBOO'l, 


in'iif',i, 


1 llNIK 








_900 PR IN 




C* 










_9I0 PRIN 


1PR1NT 














IB 0SHIFT0 


DE GAUCHE "1 








_920 PR IN 








































DEUX 


















eh. FLECHEE DE C 








_W30 PR1N 


"II pa 


jt a 


ua«l 


ARGUE R 


0MBE&I2 ( 


p..) p 








TOUCHE-I 










_»A0 PRIN 






da la TOUCHE 


FIO OE DROITE.. . 








_970 PR1N 












plu* L 


•Ml 


[MP*. 




_980 PR IN 


:printa»-l 






SIM UNE 


OUCMf 


M 1 


i«:»' 


<jmt 



LE CHATEAU DES SORTILEGES 



Desireuxd'aventure.vousvoila parti a la conquetedu cha- 
teau des sortileges ainsi appeie dans les proches villages 
car, dit-on, jamais encore quelqu'un n'a pu en ressortir 
vivant. tous ayant ete victimes des sortileges et des mons- 
tres apparaissant soudain au detuur d'u;ie piece. Mais 
vous, vous avez decide d'ignorer ces questions que cha- 
cun se pose sur votre sort, et resolu de vaincre et d'amas- 
ser le plus gros tresor possible, vous part ez de pied ferme 
a I'aube, visiter ce chateau maudit. Arrive auxpqrtesdece 
chateau, un garde cerbere est la, feroce. Mais, 6 surprise, 
il ne vous chasse pas et bien au contraire vous souhaite la 
bienvenue. Avant de vous laisser passer, il vous demande 
votre nombre fetiche et votre prenom. (repondre en ta- 
pant le nombre ou le prenom ayant douzelettresau maxi- 
mum, puis R/S). 

Bruno CART1GNY 

Mode d'emploi : 

Toutefois. avant de commencer votre conquete, vous apprenez delui 
que le chateau comporte douze etages : la cave, les salles. le donjon et 
la tour, divises en seize pieces, en tout, et que la visite du "premier eta- 
ge" est facultative, tl vous demande d'ailleur si vous souhaitez y aller 
(repondre par pour ouiou N pour non. puis R/S) voussignalantquesi 
vous choisissezd'y aller, vous devezparcourir cinq pieces de plus, votre 
vitaliteaugmentedequelques points mais vous avez peut-etre a affron- 
ter plus de monstres, meme si vous decouvrez des tresors. Desormais. 
votre destin est entre vos mains. A chaque franchissement de piece 
vous voyezs'afficher votre vitalite (nombre de points de vie, qui, s'il est a 
zero, signifie votre mort) et le nombre de pieces restant a visiter avant 
de parvenir dans les dernieres pieces {la tour, dernier etage) ou se trou- 
vent uniquement des coffrets d'or. Dans chaque piece, vous etes en 
proieaun nouvel evenement. Tout d'abord. vous pouvezdecouvrir une 
piece calme, dans ce cas la piece suivante vous attend. Vous pouvez 



aussi decouvrir une surprise benefique pour vous ; augmentant les ca- 
racteristiques de votre personnalite : vitalite, force (puissance des 
coups infliges a I'adversaire). resistance (aux coups portes par les ad- 
versaires). vitesse (d'avance ou de recu! dans un combat), et recupera- 
tion morale et physique (capacite de reprendre des points de vitalite) ; 
ce ont !es armes, armures, les medicaments fortifiants, les rjottes de 
sept lieues. les fioles potions et les tresors. Mais, preux conquerant. 
mefiez-vous des surprises malefiques : les medicaments poisons, les 
fioles demoralisantes et les pieges codes, ils sont rares mais dange- 
reux. Remarquez que, lorsque vous decouvrez un medicament ou une 
fiote. vous avez lechoix dele boireou non. Dans lepremiercas.ee me- 
dicament ou la fiole agira instantanement avec un bon ou mauvais ef- 
fet, dans le second cas, soil votre nombre fetiche vous sauved'unpiege 
et alors il ne vous reste qu'a trouver son code (taper un nombre entier 
entre 1 et5, sans R/S) sinonune trappesouterraines'ouvre, etvousra- 
mene d'un certain nombre de pieces en arriere. Le dernier evenement 
auquel vous vous exposez dans chaque nouvelle piece, est la rencon- 
tre sanglante avec un monstre avec lequel vous devez combattre. A 
chaque nouveau combat, vous avez I'ecart entre vous et le monstre, les 
diverses actions qu'il vous est possible d'entreprendre dans votre com- 
bat, avec les numeros correspondents que vous devez taper (sans R/S) 
pourchoisir, et votre vitalite restante. Sachez toutefois que chaque ad- 
versaire joue deux fois de suite. "TOUCH E 3.5" signifie que votre com- 
bat a fait moucheet que vous avez blesse votre adversaire en luiretirant 
3,5 points desa vitalite. Apres chaque avanceeourecul de votre part, le 
nouvel ecart est affiche. A chaque repos vous recuperez des points de 
vitalite jusqu'au maximum possible. Si vous choisissezde vous def en- 
dre, alors votre anneaumagique que le chef du village vous a confie en 
secret, creeraun champ de protection d'unecertaine force ;le monstre 
pour vous toucher devra alors avoir une force de frappe superieure a 
cette protection, qui n'est valable que durant un tour, sinon e'est 
I'echec de sa tentative de combat. Vous et le monstre avez done cinq 
possibilites : combattre (taper 1), avancer (taper 2), stopper (taper 3), 
reculer (taper 4) ou defendre (taper 5). Si vous triomphez du monstre. 
votre visite continue, sinon vous ferezpartie des nombreuxautres con- 
querants malheureux. II s'agit done pour vous de trouver ia meilleure 
strategie de combat et d'avoir un peu de chance. 
Le programme est long a taper, mais le jeu est envoutant et il dure lui 



meme plus d'un quart d'heure, meme si Ton ne parvient pas au but. 
Tapez le programme en SIZE 000. puis sans mettre de END (il n'y a plus 
assez de place !) faites un SIZE 026. Sachez aussi qu'il necessite une 
HP41CV (ou HP41C + Quadri) munie d'un lecteur de cartes. On peut 
toutefois s'en passer en rognant sur tous les affichages et en creant un 
sous-programme echangeant les registres 00a 19 inclus avec les regis- 
tres 10a l9inclus, leOOdevenant 10. 01 devientn, etc .. II suffit alors de 
remplacer la fonction 7POS avec XEQ correspondant. Remarquez 
aussi que, lorsd'une premiere partie. la machine doit rechercherparmi 
les 850 lignes les labels et de ce fait, certaines reponses peuvent etre 
plus ou moins longues a suivre (notamment lors de I'affichage de "AT- 
TENTION'*). Vous trouverez ci-joint une liste du contenu des registres 
afin que tous ceux qui utiliserontce programme puisse, sans seperdre. 
apporter des modifications aux caracteristiquesdeleurspersonnages. 
La souplesse du jeu est alors plus grande et le jeu plus varie. 
Registres n° Contei 



00(10) 
01 (11) 
02(12) 
03(13) 
04(14) 
05(15) 
06(16) 
07(17) 
08(18) 
09 (19) 
20 



Type de personnage : joueur ou monstre 
Nom du personnage 



V\P 



4\ 



Valeur de la protection 

coefficient de recuperation morale de la vitalite 

vitesse de deplacement 

resistance 

force 

vitalite maximum 

vitalite courante 

Ecart 

choix du monstre 

22 n°de la piece 

23 nombre aleatoire 

24 nombre fetiche 

25 quantite d'or du personnage 

N.B. : les registres entre parentheses correspondent au monstre a I'etat 

normal (avant 7POS). 

Bonne chance a tous ! y j 



12:16 25.8? 


62 1.5 


124 / 


186 flRCL X 


248 GTO E 


318 « 


372 RCL 88 


e K"""*. 










8HLBL -S- 


63 1 


125 INT 


187 flVIEN 


249 XEO 37 


311 INT 


373 1 


\f 




m* 


92 SF 88 


64 STO 85 

65 ST» 97 


126 XEO 37 

127 « 


188 PSE 

189 RTN 


258 .6 
251 X<=Y' 


312 1 

313 t 


374 X>Y' 

375 XOY 


* *4 


1 




^r 


83 CF 29 


SfP^ 


84 -flLEA='- 


66 ST« 86 

67 .8 

£8 STO 84 


128 .9 

129 * 
138 INT 


198«LBL 13 

191 -NEDICBNEHT- 

192 flVIEN 


252 SF 94 

253 -POTION- 

254 FS? 94 


314 "C0DE=? Ia5- 

315 CF 22 

316 flVIEN 


376 2 

377 / 

378 STO 88 


& 


~|ULr 


1/ 




85 PROMPT 








86 STO 23 




^MJL 


87 acos 


69 59 


131 CHS 


193 PSE 


255 -P0IS0N- 


317»LBL 93 


379 6 


^^^ 








98 BEEP 


79 STO 88 


132 33 


194 XEO 8 


256 AVI EN 


318 PSE 


388 ST* 98 




fftfflFi 




89 INT 


71 -VflS-TU fl Lfl CflV 


- 133 t 


195 FS?C 84 


257 PSE 


319 PSE 


381 ST» 87 




16 STO 21 


72 -FE t 


134 XEO 37 


196 GTO E 


258 XOY 


329 FC?C 22 


382 6 


434 XEO IND X 486 "ECHEC- 


11 FIX 1 


73 AON 


135 GTO IND V 


197 XEQ 37 


259 19 


321 GTO 93 


383 STt 88 


435 flVIEH 48? X<=e' 


12 8 


74 PRONPT 


136«LBL 32 


198 RND 


269 » 


322 -OUF. SflUVE- 


384 2 


436 PSE 488 RTN 


13 STO 22 


75 AOFF 


137 RND 


199 2 


261 RND 


323 X*Y? 


385 * 


43? FS?C 89 489 RND 


14 STO 25 


76 fi-STO X 


138 .6 


286 1/X 


262 FS? 94 


324 -DONNflGE...- 


386 5 


438 RTN 498 "TOUCHE - 


15 4 


77 -0- 


139 X<=Y? 


281 X<=Y? 


263 3.2 


325 flVIEN 


387 - 


439 7POS 491 flRCL X 


16 STO 97 


78 OSTO V 


148 XEO I 


282 SF 84 


264 FS? 84 


326 PSE 


388 STt 87 


448 CTO 28 492 flVIEH 


17 25 


79 X=V> 


141 XEO I 


283 -FORTIFIflNT- 


265 « 


327 X=Y? 


389 2 


441*LBL 88 493 PSE 


18 STO 98 


88 GTO 28 


142 GTO 86 


264 FS? 94 


268 FS? 84 


328 RTH 


398 STt 86 


442 TONE 8 494 ST- 19 


19 2 


81 5 


143*L8L 33 


285 -DENORflLISRNT- 


267 CHS 


329 "EN RRRIERE DE 


391 18 


443 -C0NB0T: 1" 495 RCL 19 


28 STO 86 


82 ST* 22 


144 RND 


266 flVIEN 


268 STt 89 


338 FIX 8 


392 STt 85 


444 flVIEH 496 X>6? 


21 "CERBERE TE SOW 


- 83 GTO 86 


145 .9 


287 PSE 


269 "VITALITE: ■ 


331 XOY 


393 5 


445 PSE 49? RTH 


22 -FDITE- 


84*L8L 28 


146 X<=V 


288 XOY 


278 FC?C 84 


332 flRCL X 


394 STt 84 


446 "AVflNCEE: V 498«L8L 84 


23 (WEN 


85 11 


147 GTO 89 


289 .1 


271 "Ft- 


333 FIX 1 


395 78 


447 flVIEN 499 FC?C 6? 


24 PSE 


86 STt 89 


148 -SURPRISE. 


218 - 


272 flRCL X 


334 -F PIECES- 


396 STO 88 


448 PSE 588 GTO 85 


25 -Lfl 8IEKVENUE- 


87 "IL FRIT NOIR... 


- 149 SF 18 


211 A8S 


273 flVIEN 


335 AVIEH 


397 7POS 


449 -REPOS: 3" 581 RCL 12 


26 AVIEH 


88 AVIEH 


158 ftVIEH 


212 5 


274 PSE 


336 PSE 


398 RCL 18 


458 flVIEN 582 STO 62 


27 PSE 


89 XEO 16 


151 XOY 


213 « 


275 RTH 


337 ST- 22 


399 STO 19 


451 PSE 563 RCL 11 


23 -ET TE DEMANDE I 


" 98»LBL 86 


152 382 


214 RND 


276*LBL B 


338 RTH 


488 3 


452 -RECUL: 4" 584 STO 81 


29 -HW- 


91 XEO 26 


153 * 


215 X=8? 


277 -BOIS-TU ?■ 


339»LBL 37 


481 XEO 37 


453 flVIEU 585»L8L 85 


39 fiVIEW 


92 "TO ES DftHS- 


154 INT 


216 .5 


278 flOH 


348 RCL 23 


482 BEEP 


454 PSE 586 ■ ADIEU ■ 


31 PSE 


93 AVIEH 


155 6 


217 FS? 64 


279 CF 23 


341 9321 


483 » 


455 -PROTECTION: 5 1 58? flRCL 12 


32 "HOMBRE FETICHE'' 


• 94 PSE 


156 NOD 


218 CHS 


288 AVIEH 


342 * 


464 2 


456 flVIEN 588 ARCL 1 1 


33 PROMPT 


95 1 


157 INT 


219 STt 84 


28KLBL 81 


343 .211327 


465 t 


457 PSE 589 8EEP 


34 STO 24 


96 STt 2? 


158 11 


228 TtORSL: ■ 


282 PSE 


344 t 


466 STO 29 


458 RTN 516 flVIEH 


35 21 


97 RCL 22 


159 t 


221 FC?C 94 


283 FC?C 23 


345 FRC 


48? XEO 88 


459*LBL 81 511 FC?C 83 


36 NOD 


93 5 


168 XEO 37 


222 -Ft- 


284 GTO 31 


346 A8S 


488 flVIEN 


468 -CONBAT- 512 CTO 86 


37 "EI TON- 


99 "Lfl CAVE- 


161 XEO IND Y 


223 flRCL X 


285 BOFF 


347 STO 23 


489 PSE 


461 flVIEU 513 TOHE 8 


38 AVIEH 


186 X>Y? 


162 GTO 86 


224 flVIEN 


286 flSTO X 


348 RTH 


4181LBL 28 


462 2 514 TONE 9 


39 XEO 37 


181 GTO 29 


I63»LBL 11 


225 PSE 


287 -0- 


349«LBL G 


411 CLfl 


463 RCL 89 515 TONE 8 


49 19 


182 "LES SflLLES- 


154 -flRNE- 


226 RTH 


288 ASTO Y 


358 FS?C 68 


412 ARCL 92 


464 "TR0P BLESSE" 516 TONE 8 


41 « 


183 CLX 


165 AVIEH 


227»LBL 14 


289 X«Y? 


351 XEO 66 


413 ARCL 91 


465 X<=Y' 517 -FIN" 


42 * 


164 19 


166 PSE 


228 -BOTTES DE 7 LIE 


298 SF 94 


352 7POS 


414 flVIEH 


466 RTH 518 CF 61 


43 4 


165 X>V? 


167 XEO 37 


229 -HIES- 


291 RTN 


353 1.8 


415 PSE 


467 SORT 519 CF 82 


44 t 


166 CTO 29 


168 4 


236 flVIEN 


292«L8L F 


354 STO 68 


416 CLX 


468 RCL 87 528 CF 63 


45 STO 99 


167 "LE DONJON- 


169 « 


231 PSE 


293 FIX 8 


355 7.864 


417 STO 93 


469 t 521 PRONPT 


46 -PREHON?- 


188 CLX 


178 RND 


232 XEO 37 


294 "LE - 


356«LBL 43 


418 CF 82 


476 RCL 26 522 RTH 


47 HON 


189 15 


171 ST* 67 


233 4 


295 ARCL 24 


357 -ATTENTION- 


419 SF 81 


471 1 523«LBL 65 


48 PRONPT 


118 X>V? 


172 "FORCE: t- 


234 » 


296 "F PORTE CHANCE 


■ 358 AVIEH 


428 "RESTE - 


472 t 524 -PROTECTIOH- 


49 ASTO 82 


Ill CTO 29 


173 SRCL X 


235 RND 


297 FIX 1 


359 RCL 68 


421 TONE 9 


473 / 525 flVIEN 


59 ASHF 


112 -Lfl TOUR" 


174 flVIEN 


236 STt 85 


298 flVIEN 


368 1 


422 ARCL 99 


474 RCL 13 526 RCL 67 


51 ASTO 81 


113 SF 89 


175 PSE 


237 "VITESSE: f 


299 PSE 


361 X<=Y' 


423 flVIEN 


475 - 52? RCL 85 


52 AOFF 


114»L8L 29 


176 RTN 


238 flRCL X 


388 RTN 


362 XOY 


424 PSE 


476 XEO 37 528 t 


53 XEO 37 


115 AVIEH 


177«L8L 12 


239 flVIEN 


38I«LBL E 


363 RDN 


425 XEO IND 99 


477 1.6 529 XEO 37 


54 11 


116 FS?C 96 


178 -flRNURE- 


248 PSE 


362 XEO 37 


364 XEO 37 


426 XEO IND X 


478 « 538 » 


55 » 


117 CTO 31 


179 flVIEN 


241 RTN 


383 .4 


365 « 


427 flVIEH 


479 « 531 RCL 65 


56 RCL 24 


118 XEO 37 


188 PSE 


242«LBL 15 


394 X<=Y' 


366 ST- 88 


428 PSE 


468 RCL 16 532 t 


57 41 


119 156 


181 XEO 37 


243 -FIOLE- 


385 GTO F 


367 STO IND Z 


429 FS?C 96 


481 - 533 8 


58 NOD 


126 • 


182 4 


244 flVIEH 


386 -PIECE- 


368 RCL 2 


438 RTN 


482 FS? 83 534 / 


59 t 


121 28 


183 • 


245 PSE 


397 RVIEN 


369 TONE 4 


431 CF 61 


483 2.6 535 "K ■ 


68 19 


122 NOD 


184 STt 86 


246 XEO 8 


388 XEO 37 


378 DSE X 


432 SF 62 


484 t 536 flRCL X 


(1 / 


123 16 


185 -RESISTANCE: 


t- 247 FS?C 64 


369 5 


371 CTO 43 


433 XEO IND 89 


485 RND 
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SCRABBLE 



Jouer au scrabble avec votre PC 1500 ? C'est 
maintenant possible grace au programme suivant. 
Bien entendu, il n'assure que les controles mais 
pourquoi ne pas esperer mieux ? A vous de jouer I 
WOLFRAM VON LUNEN 

Informations complementaires : 

Reponse a la question "horizontalement ou verticalement" 

1) H ou V Nombre de lettres : maxi-15. 1 lettre n'est acceptee 

qu'au premier tour. 

Lettre x : passe le premier tour, s'il n'y a pas un ou plusieurs + 

retour en 1. Si vous tapez une lettre que vous n'avez pas, affi- 

chage de "Tu triches" et retour en 1. 

II y a deux jockers differents : (aire la distinction entre et ensui- 

te taper la lettre qu'il represente. 

Affichage de "coordonnees depart" : 1 a 1 5et Aa O si a la place 

de taper une lettre vous tapez / alors retour en 1. 

Affichage de "coordonnees arrivees" 1 a 15 et A a O retour en 1 

si la difference entre les coordonnees et la longueur du mot ne 

sont pas eglaes ou si les coordonnees de depart sont supe- 

rieures a celle de I'arrivee. 

2 E. II n'est possible d'echanger des lettres que s'il en reste 

dans le pot et s'il y a plus d'un joueur. 

Affichage de "combien de lettres echangez vous ?" nombre 

compris entre 1 et 7. Si vous tapez 0. retour en 1. 

Affichage de lettres n°x : apres les avoir toutes donnees, s'il y 

en a une que vous n'avez pas. retour en 2 puis affichage des 

nouvelles lettres. Tapez une touche et retour en 1. 

3) P. Pfait passer un tour et si tousles joueurspassent leur tour 

Tun apres I'autre, fin de la partie. 

Lorsque la partie est tinie. si des jetons restent aux autres 

joueurs. leur somme est ajouteau total de celui qui n'aplusde 

jetons. 

Ce programme est tire durecueil "50 programmes pour I'ensei- 

gnement et la famille". edite par Andre-Jean DEMANGE et 

Claude PICARD. Ce recueil s'adresse aux enseignants des 

classes allant du CE2 a la 5* rn " des colleges. Ces programmes 

fonctionnent sur T07. 

Addition des decimaux : 

Ce programme est un exercice qui consiste a se reperer dans 

une addition en ligne. Ex. : 10.841 + 1.02 — ? 

Volumes ; 

Apres un exemple detaille, le programme fait dessiner lun des 

dix volumes (quadrille et en perspective) qu'il contient. II pose 

cinq questions successives : longueur, profondeur, hauteur. 

calcul (LxPxH) et resultat final en unites de volume. 

Grands Nombres : 

Un nombre au hasard apparait en toutes lettres, le programme 

demande I'ecriture de ce nombre en chiffres. 

Ex. : Vingt mille huit cents - ? (20800). 



? G 



A*00 



SCRABBLE 



SCRABBLE 



p- nor corrrr triple 
n- nor cohpte douo-e 

O- LE7IHE COTFTE TRIPLE 

D- leiibe caviz double 



*-l a-J C-3 0-2 C-l E-1 6-J n-4 I-) 

j-8 K-ie l-J rw s-j o»i p-j o*8 b-i 

s-i r-i iw u*4 u-ie x-ie y-ie z-ie 

n- nor coopte triple 
!3- nor conpiE double 

n- LCTTRE COHPTE TRIPLE 
(3- LETTRE COFTE DOUBLE 





































































































































































































































































































































































































































































































PC 1500 + 8 Ko 
* CE 150 

2:"S"CL£AR : 
RANDOn :BEEP 1 
, 28, 290:UAI f 
:PRINI " U0ULE 
Z UOUS LES RE6 
LES ?";0*= 
1NKEY* I IF D*= 
"0"THEN 5 

3: IF D«="N"THEN 
8 

4:GOT0 2 

5:G0SUB 50000 

6:PRINT "*»***»» 
SCRABBLE *t 
*****" 

?:TEXT :CSIZE 4: 
COLOR 0:LPRINl 
" SCRABBLE": 
CSIZE J : COLOR 
2:LPR!N! "A=l 
8=3 C-3 D=2 E 
-1 F-4 6-2 H-4 



!er = PIERRE 
flUEC: 284 POINTS 



8:LPRINT "J=8 K= 
10 L=l M=2 H-l 
0=1 P=3 0=8 R 
= 1" 
9:LPRINT "S=l T= 
1 U=l U=4 U=l 
9 X=J0 Y=10 Z= 
10":LPRJNT 

10:OIM A»(15, 15)t 
i:0in L*(4, 15) 
tliDin PT<4): 
Din T<4):0in J 
• (■1, 7)*]:Dlr1 J 
E»(?)*|:Dlr1 nr 
<4> 

li:0G=l:0in n«C15 
, 15)*UDJn P»( 
102>*i:DIM X»< 
?)*i:KO=102 

20: RESTORE : FOR I 
=1T0 102: READ 
0*:P*(J )»0»: 
next 1 



PARTICULARIT ES DU PROGRAMME 

Le programme demarre avec RUN ou DEFS. II occupe 8613 oc- 
tets ; il n'est done realisable qu'avec un module de 8 Ko ainsi 
que le CE 150 qui sert au dessin du plan de jeu. 
Le programme se joue selon les regies classiques. il s'occupe 
de la distribution des pions, des echanges. du placement des 
mots sur le plan de jeu et du decompte des points. II elimine 
toute tricherie ou erreur involontaire de la part des joueurs. 
Seul leur est laisse le controle et la validite des mots formes. 
Le programme demande le nombre de joueurs qui devra etre 
compris entre 1 et 4, ainsi que les noms des joueurs dans 1'or- 
dre dejeu (maxi. 10 lettres). Une foiscela fait, en appuyant sur 
une touche le premier joueur verra s'inscrire ses sept lettres ; 
il pourra alors les noter pour ensuite les effacer en appuyant 
sur une touche (sauf "space"). Les joueurs suivants procede- 
ront de meme. Ainsi, les lettres de chaque joueur ne seront 
connues que d'eux-meme. 

Apres avoir dessine le plan dejeu. le programme affiche "hori- 
zontal ou vertical ?"... Vous pouvez repondre de quatre manie- 
res : 

- soit vous appuyez sur la touche "H" ou "V" si vous avez a pla- 
cer un mot horizontalement ou verticalement. 

- soit sur la touche "E" si vous voulez echanger une ou plu- 
sieurs lettres ; tapez sur la touche "O" si vous changezd'avisa 
"combien de jetons echangez-vous ?" 

Apres I'echange de lettres vous passez votre tour. 

- soit "P" si on veut passer son tour. 

- soit *L" qui affiche vos lettres. 

La composition d'un mot se fait ainsi : 

Donnez le nombre de lettres qui compose le mot en tenant 
compte de celles deja posees sur le plan de jeu, puis donnez- 
en les lettres en tapant *+" a chaque fois que Ton se sert d'une 
lettre deja placee sur le plan de jeu. 
Par exemple : 

Si vous voulez rajouter un "S" au mot "MAISON". tapez "7" a la 
question "combien de lettres ?" puis six fois "+" et ensuite "S". 
Vous donnez les coordonnees de la colonne de 1 a 15delaran- 
gee de A a O du debut du mot puis celles de la fin du mot. 
Par exemple. pour le mot "MAISON" : s'il est place horizontale- 
ment et si le "M" est sur la case centrale, tapez 8H et 14H. 
Si vous vous apercevez d'une erreur, tapez '/" a la place de la 
rangeede depart (par exemple si vous avez tape H (horizontal) 
alors que votre mot doit etre place verticalement). 



A suivre: 

En raison de la longueur 
inhabituelle du listing, 
nous passerons ce pro- 
gramme en deux fois. 

La Redaction 








: COLOR 0: 




13, 8, 12, 3, 13 


3029:U*=INKEY» : 


5000 


REM JEU 






CSIZE l:F0R 




, 12, 15, 15, 12 


IF U*=""THEN 


5001 


B-0 






I=1T0 15: 




■ 13,9, 12,8, 1 


GOTO 3029 


5010 


WAIT 90:B=B+ 






READ D: 




3,7, 15,4, 12, 


3030: CLS 




1 






GLCURSOR (D, 




1,9,3,8,4,2, 


3031 SPRINT "TAPEZ 


5012 


YY=8 






216):LPRINT 




3,4,1 


SPACE":0»= 


5020 


CLS :UAIT 98 






I: NEXT I 


1138 


:DATA 1,4, 3,7 


JNKEY* MFD 




:BEEP ll 




1050 


DATA 5, 18, 32 




, 4,8, 3,9, 1, 1 


*=" "THEN 




PRINT "JOUEU 






,46, 60, 74,69 




2, 7, 9, 9, 9, 9, 


GOTO 3040 




R";B;" A UOU 






, 102, 115, 126 




7,7,7 


3032: GOTO 3831 




S ":8EEP 1! 






, 141, 155, 169 


1 140 


GLCURSOR (5, 


3040: NEXT J 




INPUT "HORIZ 






. 183, 198 




-50) 


3058: RETURN 




ONTAL OU UER 


26: DATA "I", "I*', " 


1030 


C5IZE 2: 


1500 


0G-8:GOSUB 5 


4800: REM PASSE 




TICAL? '';H» 






RESTORE 1103 




808 


4010:BEEP ]:PRINT 


5025 


IF H*="H"0R 




1180 


FOR ]=1T0 8: 


2000 


0=1: BEEP 1: 


" JOUEUR ";B 




H»="U"THEN 






READ X, Y:A*( 




INPUT "COriBI 


; " UOUS PASS 




GOTO 5035 






X, Y>="4":0=( 




EN DE JOUEUR 


EZ":PA=PA+I: 


5026 


JF H*="P" 






X*14)-9:P=(l 




S ? "JN: IF N 


GOTO 12000 




THEN GOTO 48 






5-Y)*14*5: 




>40H NdTHEN 


4180:REh ECHANGE 




00 






GLCURSOR (0, 




2888 


4101:FOR 1=1T0 7: 


5027 


IF K0>=1AND 






P) 


2881 


:Din N»(N)*10 


X*(I)=J*(B, I 




J0O1AND H» = 




1 101 


FOR W=1T0 2: 




:J0=N:WAIT 9 


):NEXT 1 




"E"THEN GOTD 






LINE (0, P)-( 




8:PRINT " 


4185:F0R I=1T0 ?: 




4100 






0+14, P+14),0 




DONNER LES N 


J*(B, I)=L*(B 


5028 


IF H*="L" 


28:DATA "S", "S", " 




, 3, B:NEXT W 




OriS DONS": 


. T>:NEX7 1 




THEN GOTO 50 




1182 


NEXT I 




PRINT " 


1)10: BEEP J:R=0: 




30 




1103 


OATA 1, 15, 8, 




L^ORDRE DE 


CLS SUAIT 90 


5029 


GOTO 5020 






15, 15, 15, 15, 




JEU" 


SPRINT "COrlB 


5030 


0=B:N=B: 






8, 15, 1,8, 1, 1 


2018 


:UA1T 0:FOR I 


IEN OE JETON 




GOSUB 3800 


U", "U", "U" 




> 1, 1,8 




=]TO N:CLS : 


S ECHANGEZ": 


5034 


GOTO 5020 




1184 


RESTORE 1106 




BEEP If PRINT 


INPUT "UOUS 


5035 


BEEP l:PA=0: 


X", "Y", "Z", "*" 


1105 


FOR 1 = 1 TO 16 




-non OU JOUE 


?",-JE:IF JE= 




INPUT "NOPiBR 


i "tl" 




:READ X, Y:A* 




UR"; 1 j: INPUT 


0THEN GOTO 5 




E OE LETTRES 


3B:G0SUB 2000 




<X, Y?="3":0= 




" ? "JN»<I): 


912 




? ";l:lP=0: 


40:Q=l:GOSUB 3008 




(X*14>-9:p=( 




NEXT I 


4111: IF JE>K0THEN 




IF L>J50R L< 


50:CLS : PRINT "** 




15-Y)*14+5: 


2020 


RETURN 


GOTO 5012 




1THEN GOTO 5 


***** JE 0ESS1 




GLCURSOR <0, 


3000 


CLS :WA1T 0: 


4115: IF JE>7THEN 




033 


NE *******" 




P> 




POR J=OT0 N 


GOTO 4110 


5036 


IF L=1AND GH 


100:GRAPH :LlNE <4 


1106 


FOR U=1T0 2: 


3001 


BEEP 1,20, 20 


4120:FOR I=1T0 JE 




=lfHEN GOTO 


5, 0J-C52, 7), 8, 




LINE <0, P)-( 




0:PR1NT "TAP 


:CLS :8EEP 1 




5035 


3, B 




0+14, P+14), 1 




£Z UNE TOUCH 


,30*1,20: 


5040 


FOR F=1T0 L 


U0:CSIZE ULPRJNT 




, 3, 8: NEXT U 




£":D*=INKEY4 


PRINT "LETTR 
E ••;!;: INPUT 


5050 


WAIT 0:CLS ! 


" = HOT COriPT 


1107 


NEXT I 




: IF 0*="" 




PRINf "LETTR 


E TRIPLE" 


1108 


DATA 2, 14, 14 




THEN GOTO 38 


" ? ";JE*(D 




E ";F;:8EEP 


120:LJNE C45,rl0J- 




, 14, 14,2,2,2 




01 


:NEXT 1 




li INPUT " ? 


<52, -3J, 1, 3, 8 




,3, 13, 13, 13, 


3002 


WAIT 8:CLS : 


4125:F0R I=1T0 JE 




•;l*(F) 


130:LPRINT " = HO 




13,3,3,3,4, 1 




BEEP 1:PR1NT 


4130: JF JE»(I)OJ 


5055 


IF L*(F)=L*( 


T COtlPTE DOUBL 




2, 12, 12, 12,4 




" JOUEUR ";J 


*(B, 1JAND JE 




B, DOR L*(F) 


E" 




,4, 4, 5, 11, 11 






*(I)OJt(B,2 




=L»(B, 2)0R L 


!40:L1NE (35, -20)- 




, 11 


3003 


FOR I=1T0 7 


)AND JE»(I)< 




*(F)=L»(B,3) 


<42,-13), 2, }, B 


1109 


DATA 11, 5, 5, 


3804 


S=INT (RND 1 


>J»(B, 3)AND 




OR L»(F)=L*( 


158:LPRINT " ■ LE 




5 




82): IF KO<=0 


JE»(1X)J»(B 




B, 4) THEN 585 


TTRE COMPTE TR 


1110 


LINE (103, 10 




THEN GOTO 30 


, 4JTHEN LET 




B 


IPLE" 




3)-(117, 11?) 




06 


R=2 


5056 


IF L»(F)=L*< 


160JLINE (35, -30>- 




, 0, 0, B:LINE 


3805 


IF P*(S)="-" 


4140: IF R=2AND JE 




B, 5)0R L»<F) 


C42, -23), 1, 1,B 




(183, 103>-(1 




THEN GOTO 30 


*(I)OJ*(B,5 




=L»(B, 6)0R L 


178:LPRINT " = LE 




17, 112), 0,0, 




04 


)AND JE«(1)< 




«(F)=L»(B, 7) 


TTRE COMPTE DO 




B 


3806 


Q»="D":IF L* 


>J»(B,6>AND 




OR L*(F)="+" 


UBLE" 


1119 


COLOR 11 




<J, I)=""THEN 


JE»(I)OJ*(B 




THEN 5058 


945:C0L0R 0: TEXT 1 




RESTORE 1121 




LET J*(J, I )= 


, 7)THEN GOTO 


505? 


GOTD 6000 


LF 23 


1 120 


FOR 1 = 1 TO 12 




P*(S) 


4101 


505B 


IF L«(F)="»" 


950:GRAPH :E=415: 




:READ X, Y:A» 


3007 


IF L»(J, I) = " 


4 145: NEXT ] 




THEN CLS 


CSIZE i:F0R 1= 




(X, Y)="2":0= 




"THEN LET KO 


4146:F0R 1 = 1 TO JE 


5059 


IF L»(F)="*" 


97T0 lli:E=E-l 




(X*14)-9:P=( 




=K0-1 


4150:LET S=1NT ( 




THEN INPUT " 


4:GLCURS0R C0, 




15-Y)*14+5: 


3008 


IF L»(J, I) = " 


RND 102): IF 




LETTRE OU JO 


E+10):LPR1NT 




GLCURSOR (0, 




"THEN LET Q* 


P»(S)="-" 




KER ? ";K« 


CHR* I: NEXT li 




P) 




=L*(J, I) 


THEN GOTO 41 


5060 


IF L*(F)="»" 


GLCURSOR <8, 20 


1121 


FOR U=1T0 2: 


3009 


IF L»(J, I) = " 


30 




THEN CLS 


5> 




LINE (0,P)-( 




"THEN LET L* 


4160:FOR U=1T0 7 


3061 


IF L*(F)="«" 


999: K=I0: GRAPH 1 




0+14, P+14), 




(J, 1>=P*(S) 


4170: IF J*(B, M)=J 




THEN INPUT " 


CSIZE 1 




, 1, B:NEXT U 


3010 


IF Q»=""THEN 


E»(I>THEN 




LETTRE DU JO 


1000:FOR I=5T0 21 


1122 


NEXT I 




LET P*(S)="- 


GOTO 4200 




KER ? ";K0» 


5STEP 14 


1124 


DATA 2, 10, 6, 






41B0:NEXT U 


5062 


FOR U=1T0 ?: 


1005:GGTO (I000*K 




10, 6, 14, 10, 1 


3011 


8EEP I.ASC ( 


4200:GY«=L«(B, U): 




IF L«<B, U)=L 


) 




4, 10, 10, 14, 1 




L«(J, I))*2-5 


L»(B, U)=P»<S 




»(F)THEN LET 


10]0:LlNE (1,215) 




0, 14,6, 10,6, 




0, 20: PRINT L 


):J»(B,U)=P« 




L»<B,U) = '" - : 


-(I, 5), 8, 2:K 




10,2,6, 2,6,6 




•(J, I); 


(S) 




GOTO 5099 


=15: NEXT 1 




,2,6 


3012 


IF L*(B, l) = " 


4210:P*<S)=GY» 


5063 


NEXT U 


1015:LINE <I,5)-( 


1129 


RESTORE 1131 




-"AND L»<8, 2 


4220: NEXT I 


5039 


NEXT F 


I,215),0,2:K 


1130 


FOR 1 = 1 TO 24 




)="-"AN0 L*( 


4230: BEEP ] : CLS : 


5100 


FOR !=■! FO Ll 


=10:NEXT I 




:READ X, Y:A» 




B, 3)="-"AND 


UA1T 0:PRINT 




IF L«<I><>"+ 


1819:K-=30 




(X, Y)="1":0* 




L*(B, 4)="-" 


"JOUEUR "J8i 




"THEN LET LP 


1020:FOR I=5T0 21 




(X*14)-9:P=( 




AND L«(B, 5>= 


-. ,. . 




=LP+1 


5STEP 14 




15-Y)*14+5: 




"-"THEN LET 


4235: FOR 1=1 TO 7 


5101 


NEXT .1 


1025:GOTO ]000*t< 




GLCURSOR (0, 




YY»3 


4240:BEEP I, 1*30, 


S1B2 


IF GHalANO L 


1030:LINE (215, I) 




P) 


3013 


IF YY=5AND K 


20:PR1NT L*C 




P=LTHEN goto 


-(5, I),0,2:K 


1131 


FOR U=1T0 2: 




O<=0AND L*(B 


b, i): 




6000 


=35: NEXT I 




LINE (0,P)-( 




, 6)="-"AN0 L 


4250: NEXT I 


5110 


GOTO 10000 


I035:LINE <5, l)-( 




0+14, P+14), 1 




*<8, ?)="-•• 


4260:D»=INKEY* : 


6000 


UAIT 90: SEEP 


213,1), 0,2:K 




, 1, B:NEXT U 




THEN GOTO 20 


IF Q*=""THEN 




1, 200, 2001 


>30tNEXT I 
1040: RESTORE 1030 


11 32: NEXT 1 
1137: DATft 4, 13,2, 


3020 


000 
NEXT 1 


GOTO 4260 
42781 GOTO 10250 




Suite page 8 



MEMO 



Une version adaptee au MPF II, de ce jeu de memoire tres 
classique ou les joueurs doivent reconstituer les paires, 
parmi les cartes presentees face cachee a leur sagacite. 
Ayez le coup d'ceil et interdit de prendre des notes ! 

GhislainDEJACQUELOT 



WIP-F" 



£8899 

; • ■ | £199 

[« cosua lew 

:•; GOSUB 2894 
■-; G0SU1 I9W 

15 costis ?e«8 

*0 FOF I - 1 Tfl H 

38 UTAB 2> HM1 » print 

SFC< 22 

-:o i » : - I 

•■3 GOSUB 4888 

9« .; ■ r< <.V) A2 - - E2 • 1 



100 



GOSUB 4488 



105 I" ^£ 



D EI - E THE* 
> THEN 168 
POKE 769,223 



ir c 

143 If 50 TMI 
CALL 7 70 

146 UTAE 34 hThE 13 PRINT ' 
UNE TOUCHE-i 
1*7 GCT hi 
148 GOSUB 500 • 
150 KEXT I GOTO 40 
L60 IF BO THEN FOB L » I W 

CALL 791 NEXT 
178 GOSUB 388 W5 .E 5080 
198 'SOTO 59 

590 XBRAU 'I ftT -222 - 29 
5ia XDCau H :■:- < ■ AT A.B - £0 
510 RETURN 

1009 DW UI1.3J.W9) "A P 
1019 HOME 

1028 WTAB 18 HTfll •: PRENT 
OUELOUES INSTAnT-;- 
103« UTAB n ""«E 18 PRIHT 
-; CARTES" 

10*8 FOR [ - I TO £3 
1-350 FOR J ■ I TO : 

taea x * jht ■ rhb ii i exf 

« 12> 

ioro v « (MT c rhd J * exp 
* *> 

10S8 IF T<X.YJ ■ 9 THEM Ii 

1090 T< >:-r;. =■ i 
1108 HEXT J.I 

1103 FOR I » 9 TO 3 FOR J ■ 
IF TtJ.li - THE" 7< J, I > ■ 
1196 ne:<t J. I 

1119 UTAt £0 HTAE 10 PRINT 
■IT FAIT !" 
1128 HOME 

1123 IF R THEN RETURN 
1138 UTAE 10 H*AB 5' PRINT 
JOUEURS V-A-T-tL 7 ": 

U48 GET A J 

1153 FOP. L « 46 TO 5? 

U68 if a* - chr* a; then i 
uro next l 

1198 IF NOT B THE* 1149 

1138 PRINT A» 

1208 N - UAL Cft*>'S£ - 8 Y = ' 

. l TO H A< I :■ - NEKT 
1259 RETURN 
2004 HOME 
2001 SCALE- 1 



2993 FOP r 




^039 


HPLOT J I 23 - K. 


20*9 


HPLOT J 1 23 + K. 


2959 


HEXT K.J.I 


■o*;o 


FOR I ■ to 1 1 


2070 


FOP J - 8 TO 3 


£999 


FOP i; » 8 ro 33 


2830 


HPLOT I l 2!. J * 


2109 


HPLOT I l :> • I! 


'118 


HEXT K. J. I 


2128 


MP TEXT Mi 


2130 


RETURN 


J 098 


FOP I - to 38S 


1018 


READ A POKE 1638 


3828 


HEXT I 


TO 30 


POKE 232 S 


3040 


POSE 233. £4 


3058 


DATA 24.0 30 8.? 



,45 33 »5 



2.0. 175.0-204.0 2'.? 9. 248.8.999 1 

2. 1,6?. 1.93 I It*. t 140- 1 152 11" 

3,1.236, 1 ,8.2.24 2. 39,2.62.2 

3464 D-ita 23.93.173.63,95.191.4 

5,93.62.95.63.93 119.41.93-21-95,6 

• 9.8 

3870 DATA 23.93.173,63.95,191, 

93. 38.95. 63. 95. 1* . 93 . 245 • 7. 8 ■ 63 

3999 DATA 43.93 62.95.139.43 93. 43. S3. 6 

2,93.63,95*35.93,13.93,41,94,26,93.39.94 

.39.93.0-9.9 

3090 DATA 27,93.13. 93. 21. 95. 63. 95. 6-3 91 

. 10,93. 43»93. 43, 94, 63. 95.63. 95. 14.93.45. 

93-30.35. 119.7.0.0 

3100 DATA 73,23,93,62,95-38,93,45,94,63 

,95,191.45.93.45.94. 63,93.63-95. 7,0.43 

3118 DATA 43.93.21.93.63.95.23,93.45.93 

,43. 94, 63. 93, 63,95*46, 93. 43.93.243,63 93 

,119,45,93.0.0.0 

3128 DATA 191,23,94,118.14,93.101,12.92 

,228.25.93.0.0.0 

3139 DATfi 43,93,30.94,223,46.93,43,93.3 
7.94,239.231.113.9.94,43.93.5.0,93 

3140 DATA 63. 95. 54. 94.54,94.45,93.45-33 
,36.92,36.92,63, 94, 38, 93,54.93. 37, 92-0.8 
,119 

3150 DATA 135. 159.45.93. 173- 63. 93.63 93 
,46, 93,45, 93, 33. 95.63. 93,63, 94, 41. 93-45, 
93.9,8.4 

3169 DATA 23.95.186.46,93.246.43.93.229 
.44. 93, 229, 29 -92. 0,0. 95 

3170 DATA 226,131.54.94,113.14,92.201.1 
2,92.33.92.28,95,7,0,95 

3160 DATA 73. S3- 95- 63. 95. 54. 94, 54. 9*. 45 
. 93. 43. 93,36,92 .60,95/63. 94. 46. 93 . 4 . .0 
3190 EATft 59.95.46.94.179.46.93.59.95. 7 
7, 41, 93. 69. 92. -33. 98. 60. 92-. 57, 95. 7- 0-0 
3299 DATO 219. 3*. 94.54,94.43. 92, 36. 92. 3 
6 . 93 , 53 . 94 . 34 , 9* - 46. 93 . .36 . 92 , 36 . 92 , 4 . , 9 

3219 DATA 73,63,94,62,93,54,95.55,94,6. 
9,53 

3229 DATA 63- 35, 54, 94, 34, 94 , 43 . 93 . 45 . 93 
. 36 . 93 . 63 . 95 . 39 . SB . 45 , 93 . 1 73 . 36 , 92 • S3 . 95 

3239 DATA 63. 95. 54, 94, 54 , 9* . 45 , 92 . 36- 92 

.100.54,94,246,45.93.-36,32,36.92,63.95.0 

3240 DATA 73.63.95.63.93,46.93,105-53. 
95 . 27 . 95 , 27 , 94 . 45 - 93 . 45 , 93 . 254 ,231 - 51 , 93 
■13.93,41.94,63.95.63.95,7.8.9 

3230 DATA 73.31.35.231,14-93,105,21,95. 
251. 31. 94, 105. 13- 93. £58- 31.95. 115. 13-93. 



169>31 .93.Z31-4 g 9 






E26I DATA 


3T.93 57-97. 


*■ 


5-93.35.93, r. 0.238 






?:ro D"T» 21?. -i ?- 


•3-93.43 ?». 


■ 


94,34 94,0,0.0 






3289 BATfl »5. 93 34 


•.90.94.63. • 


36.92 32.92,43 93 10.94,34 9' 


I 


3298 DAT* £3. 93 :■- 


21.93.170.44 




28. 92,39, 93. 0.0. 93 






3900 R-CTtjPM 






4000 COSUB 4018 GO 


TO 4069 




4818 a - :■: t iz - 18 


ft - Y J 49 * 


r-; 


4028 HPLOT A.I TO B 


I ■• 4 




4030 HFLOT A.E TO A 


- I. E - £ 




4040 HFLOT A.E TO - 


* 2.E * 2 




4059 RETURN 






4069 CET A I 






49?0 IF Al - CHR* 


B) AND ■ > 9 




THEN HCOLOR ■ 9 


GOSUE 4010 




■ X - 1 ' HCOLOR 


■ 3 G03UB *0 





GOTO 4060 






4088 IF AI - CHRI 


£1 ■• HMD ■: 


t 


THEN HCOLOR » 


GOSUE 4019 - 


• X * 1 HCOLOR 


■ 3' GOSUE 40 


8 


GOTO 4060 






4098 IF A» ■ CHRI 


113 > AMD Y '■ 




THEN HCOLOP ■ 


COSUB 4019 




" V * 1 HCOLOR 


■ J. GOSUE 40 


9 


GOTO 4060 






4100 [F A* - CHR* 


1121 AMD v :■ 


9 


THEN HCOLOR - 


GOSUE 4010 




■ V - 1 HCOLOP. 


> 1- GOSUB 401-) 


GOTO 4060 






4110 IF AF - CHR* 


0> OP (■' • 




CHRJ t" 21 '-■ OP -t = 


CHRI < 112 ^ 




OR AI " CHR* 11 


I > THEM 4-360 




4120 IF T< X.Y) 


THEM CPAU 


n 


AT A. E - 20 HCOLOR 


- GOSUB 


i-31 


HCOLOR - 3' SETiJ 






4139 GOTO 4060 






5999 Ac [ ;. • *- I ■ - 1 






3010 HCOLOP =■ -3 






5928 HPLOT A.B - 1 


TQS ' 9.E - 





TO A - 19, E - 1 TO A.E - 1 
5030 HFLOT A2.B2 - 1 TO A2 * 9-B2 

- 1 TO A£ - 9-E2 - 36 TO A£ - I8.B2 

- 36 TO A2 - 10. E2 - 1 TO A2.B2 



59*0 


T< X,Y> » 8 KX2-Y2) = 


3030 


H2 - H. HP HTAE 1 UTAB 1 


50S0 


FOR L = 9 TO HIT < 'N - 1 / 


5070 


IF H2 : 3 THEN D - M2 ' GOTO 5090 


5900 


B ■ 3'N2 * H2 - 3 


5090 


FOR H - 1 TO D 


5100 


FOR * I TO 11' PRINT ■*"( 


HE 


XT 


5118 


NEXT R- PRINT •*• 


5129 


FOR n = I TO D 


5130 


PRINT -1 JOUEUP ")H ♦ L * 3l" "l 


5140 


NEXT K- PRINT ■»" 


5138 


FOR M - 1 TO D 


5169 


PRINT -* '; 


5170 


HEXT Hi PRINT "** 


5188 


FOR H ■ I TO D 


3190 


A* - RIGHT* <" ' * STP* <AtK 


-. 


L * 3 > > . 3 ) 


5200 


PPIHT "t VAI:" 


5219 


HEXT M PRINT "*" 


5223 


FOR H * I TO D 


3238 


FOP ■ t TO Hi PRINT "*"l 


NEXT 


5248 


NEXT H PRINT *»" 


52-50 


PRINT 


3268 


NEXT L 


5270 


H * 


3288 


FOP L = I TO H 


5299 


H ■ H + ACL> 


5300 


HEXT L 


5304 
E- 

5305 


PRINT i PPIHT "TAPEZ SUP UNE TOUC 


GET A*< HCOLOR ■ 3 


3318 


IP H • P < 24 THEN MA RETURN 


5328 


POP 


3338 


PRINT i PRINT ■ PRINT - UOILA C 


EST FIMI !!!■ 


5340 


PRINT ■ PRINT "UOUS AUEZ TROUfE E 


•:Z. 


• COUPS* 


5338 


PRINT ■ PRINT 'UOOLeZ-UOUS FAIRE 


ME AUTPE PAPTIE 7 ": 


3368 


GET A*: IF AI < ■> "0" AND AI 


< 


> -N" THEN .5360 


5363 


PRINT A I 



337B 


IF AI • "H- MEN HA HOHC 


UTitE 19 MTAB 13 CH 1 




HfAl ■-.:;..- 


HTAB 13 


UTAB 


22 END 


5373 


P - ! 


3308 


r=[rir PA1HT 'Y A-T-It 


i£RE 


-.- JOUEUftf ' - 


3330 


Cfit *! rr -t ;, -o- M|fl .i 




'M" rMEN 3390 


3400 


PRINT '•f IF A* - -0- ThE-i 543-1 


3410 


PR1HT PRIHT 'COflBICH t €•< ft-T-I 


"i 


GOSUB 114.) GOTO 3453 


5430 


PRINT ■ PRIMT -UOULEZ-UOUS G««B£B 


LES 6 


:0SE6* -sutT TAB' \i>.- ■ 


3440 


GET AI IF AI 1 :• -0' AfiO -« 




i "N* THEH 3449 


5443 


p • p ■* 1 


5439 


PRINT *t IF ai • -N- THEM 


IX 


SUE 1230 P = I 


5453 


ho he riA 


3460 


GOSUE 1018 


5470 


Z - 


5483 


GOSUE SO 00 


5499 


GOTO 40 


£998 


FOP I = TO 3 


6028 


FOR J * 8 TO 11 


603O 


HPLOT J I 23 I * 48 TO J « £7 




19, I • 48 


6040 


HPLOT TC J " 23 • 19. I i -• 


* 


33 


6050 


HPLOT TO , ■( 23. I 1 48 * 35 


6OS0 


HPLOT TO J « 23. I • 43 


6070 


NEXT J. I 


6080 


RETURN 


6103 


HOHE ' HCOLOR • 3 


6110 


A ■ O'f - 279<C - D • 191 



6120 HPLOT A.C TO E-C TO E.D TO I 



6130 



■ 20 THEN 6120 
HTAB IS PRIHT "(1 t 



TO STEP - 1 
AB l'0< PRINT RIGHT* ' 

. ., - s -, 



S1S0 FOP I = 
S170 UTAE 23 

• * STR* < 
6180 HEXT I 
6193 PRINT CHRI <7>: 
6200 HOKE UTAE 10 PRINT •UOULEZ-'MyS 

DES EXPLICATIONS <- ■ N > 1* 
6218 GET AI IF A* = *H m THEN RErURN 
6229 IF AI -.' .- "0" THEH 6210 
6233 HOME SPEED" 138 

6248 PRINT --LE JEU CONSISTS & -£":.-_ 
P 24 PAIRES" PRINT PRINT " DE CARTES D 
IPFEPEHTES EN UOUS DEPLACANT- PRIHT 

PRIHT "SUP L'ECRAN AWEC LES FLECHC5 D 
U CLAUIER " 

6243 PRINT ■•LORSOUE UOUS ETES POSITION 
HE SUP UNE" PRINT PPIHT 'CARTE, APPUY 
EZ SUR UNE TOUCHE AUTRE" PRINT ' 

PRINT 'QU'UNE FLECHE. ET LE OESSIH (W 

6246 PRINT PRINT* "CECI 2 FOIS COHSECU 
TIUES, APRES OUOI" PRIHT ' PRINT "UOUS 
REJOUEREZ 51 UOUS RUE2 TPOUUE." 

PRINT ■ PRINT "OU LE JOUEUP SUIUANT T 
ENTEPA SA CHANCE" PRINT PRIHT "DANS L 
E CAS COHTPAIRE ■ 

6253 PRINT i PRINT "-0H HE PE'JT UOIH QU 
E 2 CARTES A LA FOIS" PRINT PRINT "IL 
FAUT DOHC SE RAPPELEP DES EHDROITS" 

PRINT ■ PRIHT "OU APPARAISSENT LES DI 
FFERENTS DESSINS ■ 
6269 SPEED- 255 
6273 FOR I ■ 1 TO 1030 NEXT I 
6288 RETURN 

7000 UTAE 24' HTAE 4: PRIHT "UOULEZ-'-'OU 
S DU SON ? (0/H> -: 
7010 GET A*' IF AI « "H" THEH SO 

- 0' RETURN 
7023 IF A* < > *0" THEH 7010 
70.38 PRIHT -OUI".- SO - 1 
7048 FOR I ■ TO 4-3 
7858 READ ft' POKE 770 * I, A 
7060 NEXT 
7870 RETURN 

7388 DATA 173,48, 192, 136. 299 . 3- 236. t .Z. 
248.9,202.208.245.174.0,3. 76.2-3.96 
7393 DATA 163.2.132.255.169.190,141.0,3 
. 164, 255. 140, 1 ,3,32,2.3, Z0€ ■ O - 3 . 208 . £43 - 
36 



TV-SAT 



Bientot vous pourrez recevoir des programmes de televi- 
sion du bout du monde grace a une antenne parabolique. 
Mais la bonne reception est conditionnee par la bonne 
execution de I'antenne. Grace a ce programme, vous 
pourrez, des aujourd'hui, vous entrainer a calculer la 
bonne position de I'antenne. 

Pour lancer le programme, se placer en mode DEF et faire 
SHIFT S. Mais auparavant, verifier que la fonction RAD est 
en service 

M. PORTELLI 




TELEVISION 

PAR 
SATELLITE 



STATION PARIS 
LAT. =43.52.H 
L0HG.=2.20.E 
DEa.=-?.2 DEG 

SATELLITE ECS 2 
POS, =347. DEG 
AZIM. =165.9 DEG 
DIST. =13359. KM 
ELEV.=33. DEG 

SATELLITE TDF 1 
POS. =19. DEG 
AZIM. =207.4 DEG 
DIST. =33595. KM 
ELE'V.=30.2 LEO 

SATELLITE INT 4A 
POS. =21.5 DEG 
AZIM. -210.3 DEG 

DIST. =38671, KM 
ELEV.=29.4 DEG 



PC 



TELEVISION 
SATELLITE 



STATION SYDNEY 
LAT. =33.52.S 

LONG. =151. 13. E 
DECL.=5.49 DEG 

SATELLITE AOSflTl 
POS. =204. DEG 
AZIM. =183. 5 DEG 
DIST. =37071. KM 
ELEV.=50.3 DEG 

SATELLITE ECS 2 
POS. =347. DEG 

SOUS HORIZON 
-57. DEG 

NON VISIBLE 



\%* 



5: "S": CLEAR 
IO:PEM TV.SAT 
I2:REM PC1211+C 

E122 
15: REM P-P-PORT 

ELLI 
20 : GOSUE 320 
25JPRINT " TE 

LEVISION 
30»PRIHT " 

PAR 
35:PRINT " SA 

TELLITE 

: GOSUE 320: 

PPIHT " " 
?.S:Si=" DEG**G* 

="LGNG." ! 
40ift««567iB"358 

OOiOllL. 136 
451 INPUT "STATI 

ON ?"JT*: 

PAUSE "LATIT 

UDE STATION 

501 INPUT "DEGRE 

S ?"iMi INPUT 

"MINUTES ?"! 

II 
55: INPUT "N-NOR 

D OU S-SUD ? 

" : u r 
O'y. PAUSE G*i"ST 

hTTON :" 
651 INPUT "DEGRE 
~-:p: INPUT 

"MINUTES ?"» 



75: PRINT "STATI 



ON ' 



!T»: 



PRINT "LAT. 

=";NiNiU* 

30: PRINT G*l"-" 

:p;q;v» 

S5:P=P'KQy6a> 
90:M=M+<N/60) 
95: IF U*="N" 
THEN 110 
100:M=-M 
110: IF VJ="E" 
THEN 120 
115"P— P 
120iB=3964*SIN < 

M+. 0174533) 
125IE-22300+3964 



Cl-i 



■33> ) 



<(1*. 



):F=-57. 29578* 
ATN <D^E) 
[35IY-CIHT (F*10 
0>) LOO 

140= ppiht "decl. 
=-;y;s$: 

PRINT ■■ = = = = = 

145: INPUT "SATEL 
LITE ^"JTJ: 
PRINT "SATEL 
LITE "IT1 

150: INPUT "POSIT 
ION SATELLIT 
E ?"iX 

155:PRINT "POS. 
="WS* 



1601 X 

16 



: IF : 



<+P 



130 



175: IF >:>=-180 
THEN 135 

lS0iK-«+360 

!35:IF X<81.3 
THEH 200 

190:;-<=IHT <<X-81 
.3>+.5) 

195: GOTO 330 

200:D=COS <0.017 
4333*X>*C0S 
<0.01745??'M 
> 

205: E=57. 29573+ < 
-ATN .'D'K-D 
*D+1>>+1.570 
3> 

210: IF E-'8I.3 
THEN 225 

2l3iX"INT «E-81 
.3>+.3> 

220: GOTO 330 

22SI I«ie0*57.295 
78*(ATN tTAN 
(0.0174533*X 
• SIN >:0.017 
4533*M) > > 

230! IF I>OTHEN 2 
40 



)V10 
245IPRINT "AZIM. 

= "UfSl 
250: J-/<A A 2+<A+'B 

>"-2-2'h"h*E 
"COS <0.017 
4S33*E)) 
255= 1= INT (J) 
2601PRIN7 "DIST. 



265:F=(<J"2+A A 2- 
<A+B) A 2>/<2* 
A+J)> 

270!K=-90t57.295 
78K-ATN <F^ 
r<-F*F*l>>*l 
.5703) 

275:K=tINT (K*10 
))/l0 

230: PRINT "ELEV. 
■"IKIS* 

300: INPUT "AUTRE 
SATELLITE < 
0'N> ?"I2*I 
IF Zt="N" 
THEN 315 

305: GOSUB 325 

310IG0TO 145 

3I5:G0SUB 320: 
FOR L=0T0 2: 
PPIHT " ": 
NEXT LiEND 

520:PPINT "***♦» 
+*****.*****" 
: RETURN 

325SPRINT " 

: RETURN 

330: PPIHT " SOU 
S HORIZON": 
PRINT " 
iXiSCPRIHT 
" NOH VIStB 
LE ":GOT0 
300 



"Ui" KM" 



BALLONS FOUS 



Lebut dujeu. en deux tableaux, est dedefendrevotremai- 
son de I'attaque des trente-cinq zouzous. Ces zouzous 
tombent du ciel, accroches a leur ballon blinde. A vous de 
trouver les defauts de la cuirasse... Ne gaspillez pas vos 
fleches vous n'en n'avez que 32. 

Jose PEREIRA 



-: ?■■£(! C'jilJIijLORE 64 MVEC DhI AS'SETTE+JUYST ICK 
9 V-53248 

1 W PR INT ""T ■ POV ES328 1 , POKES 3280. « Ffc=33 
11 PRINT PRINT 

U LL*=" VEUILLEZ FRTIENTER" -G0SUB596 

13 LL»=" VOS HERQ3 EMTKEH1 kH M.tllt" ■ "jUSUfcbJO 

15 gosub 10068 
ib sc=e 

t.j njhk.-i-ic-I-i-. 15 P0KE54277,8&POKES427B#89 : 

P0KE54275, 15 F0KE54274, 15 

36 PRINT PRINT'S*; 

35 PRINT"*** • • • •••• * * «•••- 

46 PRINT"* •••* • •••* • • 

45 PRINT-* •• • • • •••••*" 

56 PRINT"*** • •• * ••*•• ••*■•" 

55 PRINT"* • ••••• * * ••••• »■' 

5? PRINT"* •••••*•••• i- 

66 PRINT***** • • «•• ••• •••• • • *••••" 

65 PRINT 

78 PRINT" ••••• •••• * * •••" 

75 PRINT" • *••••" 

66 PRINT" ••* * * * * ••• 
85 PRINT" • •••••" 

96 PRINT" • • ••••" 

95 PRINT" • ••■« •••• •••" 

166 PRINT-MBW 

115 PRINT-BY PEREIRfl" 

126 PRINT: PRINT 

138 PRINT" -PRESSED SUR FIRE" 

134 FORI =166?T01 695 -POKE! +54272, 2 :P0KEI,FB: NEXT 

148 FORI = 1695TO1855STEP40: POKE I + 54272, 2 :pOKEI,FB: NEXT 

145 FORI = 1 855TQ1S27STEP-1; POKE I +54272, 2 :pOKEI,FB = NEXT 

156 FORI = 1827TO1667STEP-40: POKE I +54272, 2 = POKE l.FB: NEXT 

155 IFFB083THEN396 

166 POKEV+21, 4 :P0KEV+41, 8: X=56:Y=186;H-4 

180 IFX<56THENH=+4 

185 IFX>256THENH=-4 

196 X=X+H: P0KE54273,X : P0KE54272, X-I : PGKE54276, 17 

195 POKEV+4, X:P0KEV+5,Y:P0K£542?6, 16 

266 IF(PE£KC56320/HND16>=8THEHFB=32:GOTO134 

2ie ooToiee 

388 Y=176:POKEV+5,Y 

318 FQRXfi=XT0255P0KEV+4.Xft:NEXT 

328 ^POKEV+16,4:FORX=0TO63:POKEV+4,X:NEXT 

336 POKEV+16,0;pRINT-n"-POKEV+21,6 

348 F0RI-lT05PRINT")r;NEXT 

345 PRINT-3 »/QULE2 VOUS LES INSTRUCTIONS*" 

446 PRINT"*. 3K0/N>tr 

447 GETR* IFR*=""THEN447 

448 IFR*="O"THENGOTO560 

449 IFR*="N-THENG0T0661 
458 00T0447 

566 PRINT":W; 

561 LL*=" INSTRUCTIONS" ;GQSUB596 
582 LL*-" -:G0SUB596 

563 LLS="":G0SUB596 

564 LLJ="CE JEU EST CONSTITUE DE DEUX TABLEAUX" :GOSU6590 

585 LL*="VOTRE BUT-CREVER LES BRLLONS 6LINUES" :G0SUB598 

586 LL*=~fiUXQUELS SONT SUSPENBUS LES ZOUZOUS" :GOSU6590 

567 U.*="!*flTTENTIOH-IFflILLE DU BLINDBGE A TROUVER": 
G0SUB596 ; PR I NT : PR INT " *T ; 

588 LL*=-TRBLERU 1"G0SUB598 

589 LL*=" :00SUB396 

510 PRINT"**"; 

511 LL*=-"LES ZOUZOUS DESCENDENT" :&OSUB598 

312 LLS="SI 5 RTTEIGNENT LE SOL ILS DETRUISEHT" :G0SUB598 

513 LL$=<"VOTRE DEMEURE" :G0SUB598 

514 PRINT:PRINT-"T 

515 LL*="TRBLEFiU 2-G0SUB596 

516 LL*=" — "G0SUB598 

517 PRINT"-T ; 

520 LL*="LES ZOUZOUS riONTENT. * :G0SUB596 

521 LLS="SI 5 RTTEIGNENT LE HRUT ILS VOUS" G0SUB598 

523 LL*="JETTENT UNE PIERRE SUR LR TETE" ;GQSUB598 

524 PRIHT:pRINT"-r; 

525 LL»*"R> UT1LISEZ UN JOYSTICK" :GOSUB590 

536 LL*="B> ETRBLISSEZ LE PLUS HRUT SCORE" -00506598 
558 LL»="C> NE GRSPILLEZ PRS VOS FLECHES. " G0SUB596 

555 LL*=" RPPUYEZ SUR FIRE" :&0SU6599 

556 IFtPEEK(56326)RND16)-=6THENG0T0681 

557 G0T0556 

598 FORLL=lTQLENaL»j:P0KE54273.LL:POKE542?2,LL 

591 LQ*=HID»<LL»,LL,1>:PGKE54276,17 

592 PRINTLO*; P0KES4276, 16 

593 NEXT: PRINT 
595 RETURN i 

681 REMTflB 1 

60S PRINT "X :PuKE5i2fcl,o PGKE54296, 15 
686 I1=1144:I2=1164G0SUB615 
607 I1=1176:I2=1182-G0SUB615 
688 I1 = 1944I2-=1966G0SUB615 

609 11=1970: 12=19S2:G0SU6615 

610 G0TO628 

615 F0RI=I1TGI2STEP2 

616 POKEI,7?:POKEI+l,78POKEI~40, 108POKEI-39,180 

617 POKEI*40,99;POKEI+4I,99HEXT 

618 F0RI=I17OI2:POKEI+54272,5:P0KEI+54272-48,5: 
POKEI+54272+48,5 NEXT 

619 RETURN 

626 P0KE1216,91 P0KE1936-9I P0KE1216+54272,2 : POKE 1936+54272,2 

621 FORI=1256T01896STEF48:POKEI+54272,6:POKEI,66:NEXT 

622 11=1781 12=1781 :Cl=8Fl=123:G0SU664e 

623 11-1819: 12-1819 C1*9F1=233 G0SUB648 

624 11=1828: 12=1821 Fl-166 G0SUB646 

625 11=1822: I2=I822F1-223:G0SUB648 

626 11-1858: I2=1358:F1-233GOSU6640 

627 11=1859: I2»1362F1=160 G0SUB646 

628 1 1 = 1863 12=1863 ■ F 1 -223 ; GGSU8640 

629 11=1899 I2-19e2Cl=7:Fl=I68:G0SUB646 
638 11-1939 12=1942 GO3UE640 

631 11=1979 12-1979 GQSUB640 

632 11=1980:12=1981 Cl-1 GOSU6640 

633 11=1932 12-1982 Cl=7 G0SU8648 
635 GOT 0650 

640 FORI" 1 1T012-POKEI.F1 POKE 1+54272. CI -NEXT 

641 RETURN 

658 POKEV+21. 255 POKEV+16, 33: FL=41 

652 X0=16 VO=208POKEV,16 POKEV+1.,-08 

653 Xl-190 Vl-52 P0KEV+2.X1P0KEV+3.Y1 

654 X2=50-V2»52POt'.EV+4.X2 POKEV+3. Y2 

655 P0KEV+6-XI POKEV+7, Vl-21 

656 P0KEV+8.X2 POKEV+9, Y2-21 

660 XF-0 YF=YO :P0KEV*18/XF POKEV+lIfVF 

662 XP=287 .VP=212 P0KEV+12.XP FQKEV+13.YP 

663 SV-PEE*' '-56326^ BU-268 

664 H8-1 AD-8 VH=VR+10 BM=35 G03UB8148 
790 REM 

792 PEM 

799 DP=INI'. 140»RH6<l>>+63 
888 JV-15--:PEEK'5632e/RND15: 
881 IFJV1THENOOSU68660 
884 IFJV-2THEiirjO3UB3050 

866 IF(PgEK<96320}RHOlfi)*-0THENOOTO8e6e 

867 IFP£EK'.V*3J = DPrHENGOSUB83t)0 

310 Yl-Yl'PB+INTCRNII(l»3> + 2 V2-Y2+HD*INI'.RNIK 1 ;»3) + 1.3 



■Hi. Pu»EV+3,Vl F0I.EV+5.Y2 Put -EV+7. Yl-21 Pu> EV+9, V2-21 

315 IFV15219THENG0T0S888 

316 IFY2>219THENG0T08356 
817 [FYP-222THEH8988 
813 U0T0868 

2081 PEM TRB 2 PEEK STEP LORD 

2SS4 PPINT"*l".LL*="BRriVO" 00^065*6 -F'jt EV+2l,iJ 

2066 LL* = "BOMU'i, 1 OS 6" -00SUB598 

2818 PEMTRB':TflB<TRBaRBaRB.-TRB<THB';TflE'.TRB(TflB'; 

TRBCTflBtTRBaftBtTflBtTNBC TRBCTfl 

£:• TRB< mS( mS< TRB'.TRBtTRB' TftE' TRBaRB' ThB'.TRBCTRBC 

2812 3C=SC+1000 

2814 LL$="VOTRE SCORE * BONUS" :DOSUB590 

2616 print" ";sc;".-r 

2018 LL*="O.K.F0UR TflBLERU 2" GOSUB590 

2020 REM 

2022 LL*=" <0/NJ":G0SUB596 

2024 GETR*: IFR$=""THENGOTO2024 

2026 IFR*="0"THENGOT02636 

2028 GOTO2024 

2830 REM DECOR TRBLERU 2 

2032 PRINT-rr : 11=1144; 12=1 164 ■ G0SUB615 

2034 11=1168: I2=1I74G0SUB615 

2036 11=1944: 12=1983 G0SUB615 

2038 P0KEI216,91:F0KE1936,9i:P0KE12I6+54272.2: 

POKE 1936+ 54272, 2 



2852 PU>.EV+21,255:P0KEV+16,33 

2054 XO=I 6 : YB=288 : POKEV, XO i POKEV+ 1 , YO 

2956 Xl = 156:VI=219.p0i- = y+ ;;.:-:] PriKEV+3,Vl 

2058 X2=50: Y2=219 : POKEV+4, X2 I POKEV+5, Y2 

2668 POKEV+6, XI :PGKEV+7, Yl-21 

2062 PQKEV+3 , X2 : POKEV+9, Y2-21 = FL=41 

2064 XF=0:YF=YO:POKEV+10,XF:POKEV+11,YF 

2056 XP=190YP=52POK£V+12.XP:POKEV+13,VP 

2868 RB=-1 :RD=0'SV=PEEK-;56320) 

2070 VR=VR+ 10 : BI1=35 - BU= 1 83 ■ V, = IJB8148 

2074 REM DP TRB 2 

20S0 DP=INTC120#RNDCm+63 

2031 JY=15-<PEEKC56320)RNDI5) 

2032 IFJV=1THENGOSUB8000 
2084 IFJV=2TH£NGOSUB3650 

2086 IF(PEEK<56320JRND16>=0THENOOTO9866 

2088 IFPEEK(V+3~)=DPTHEHGOSUB3300 

2096 Yl=Vl-(HD-INT(RND(lJ*2j+3J:Y2=V2-<:ftD-IHT-:RNDCl>#2)+2 5> 

2092 POKEV+3, Yl:F0KEV+5,Y2:P0KEV+7, Yl-21 :P0KEV+9,Y2-21 

2894 IFVK52THENGOTO9808 

2096 IFY2<52THENG0TO9856 

2097 IFYP=222THENGOTO9900 
209S GOTO2031 

7995 REM 

7998 REM 

7999 REM PEEK 
8666 REM RSC MONTE 

8602 YO=YO-2:VF=V0 

8064 IFY0<S3THENY0=Y0+2:VK=YQ 

3086 POKEV+ 1 , YO : POKEV+ 1 1 , YF 

8868 RETURN 

8850 PEM RSC DESCEND 

8052 V0=YO+2:VF=Y0 

8654 IFYO>BU THENV0=Y0-2: YF=YO 

8656 POKEV+1.YO:POKEV+11,YF 

8658 RETLtRN 

8666 FL-FL-1 : IFFLC0THEN807 

8061 GOSUB8140 

8662 W-54276 : R=54277 : H=54273 ■ L=54272 : P0KE54296, 15 

8663 F0RX-255T0X1STEP-3 
8064 POKEV+16. 1 

8666 F0RX=255T0X2STEP-6:P0KEV+18,X:P0KER,15:P0KEH,X: 

POKEL.X : POKEW, 17 : POKEU, 16 

8867 NEXT 

8668 POKEV+16, 33:POKEV*16,0:POKEW,0:POKER,0 

8870 IFINTCYF/ie> = INT<CVl~21V18)THENGOTO8100 

8872 IFINTCVF/10>=INT<<Y2-21>/18)THENGOTO8I58 

8688 GOTO807 

8180 REM BALLON 1 CREVETRBf TRB'.THB{TR6':TflBi:TRB< 
TRB<TflB-:TflBCTRB':TRB':TflB<TRB<TRB 

<TflB< 

8181 P0KEV+21,247:P0KEV+16,33 

8102 FC*RV=V1T0219STEP2:P0KEV+3,YNEXT 

8103 Yl=52:flB=8 

8166 POKEV+3, VI : P0KEV+21 ,255 : POKEV+7, Yl-21 

3108 BM=BM-l:SC=SC+VR;GOSUB8I40 

8116 IFBn-6THENG0T02eei 

8112 IFV2=52THENRB=l:GOT0799 

8114 G0T0887 

8146 REM RFFICHfiGE SCORE 



8144 PRINT "*»MMW'.5i; tf-i. It-:.'. >»»l*«»»t 

8145 ppint'i»»ri»>»r fl 

8146 PETUPN 

S150 REM ERLLUII 2 CREVE 

.--■-.:.'■.:■: 

8152 F0PY«Y2T02195TEP2 P0KEV+3,V NEXT 

-.- RB-0 

3156 P0KEV-5.V2 P0KEV»4,X2 P0KEV+8.X2 

8158 F0KEV+3.V2-21 POKEV+21,255 

8160 Brt-Bn-l SC=SC+Vfl G0SUBS148 

3162 IFBM=0THENGOTO2091 

3164 IFV2=V1THEMRB=1 G0T0799 

8166 GOTO307 

8300 REM BEPRKT BRLLOW 

8332 FORX2=50TO1983TEP5 

3304 POKEV+4. X2 P0fEV+8.X2 NEXT RD-1 

8336 RETURN 

8308 REM BRLLON l flu SOL 

8882 YP=YP+2:P0KEV+13.YP 

8304 IFYP=222THENGOTD3900 

8306 RB=0:Y1=52 

SS03 IFV1-V2THEHHB-1 GOT0799 

8310 GOTOS07 

8850 REM BRLLON 2 RU SOL 

3851 YP=YP+2P0f.EV+13,YP 

8852 IFYP-222THENGOTO3900 
8354 RH=cj:v2=52 X2-50 

S356 POKEV+5, Y2 : POKEV+4, X2 POKEV+3, X2 POKEV+9, V2-21 

8853 IFY2=YITHENMB=1G0T0799 
8368 G0T0387 

8900 PEH PLPTE FORME EGflLISEE 

8982 FCT.EV + 21, 255-24 

3904 Y2=219 :Y1=219: POKEV+3, YI POKEV+5, Y2 

8906 FORP=X1T0255STEP,5 

8988 P0KEV+2.P: POKEV+4, P-22: NEXT 

8910 POKEV+4, 255:P0KEV+I6. 35 

8912 FORX1=0TO50 

3928 P0KEV+2,Xl:HEXT 

8936 11=1781:12=1781 :C1=0F1=168GOSUB640 

8932 11=1319 I2=1822:GOSUB640 

8934 11=1858: I2=1863:00SUB646 

8936 11=1899 12=1902GOSUB640 

8938 11=1399: 12=1942:GDSUB640 

8946 11=1379: I2=1982:G0SUB646 

8942 PRINT-"7 1 :P0KEV+21,e 

8944 LL*=" BILflN":GOSUB590 

8946 LL*=" ";G0SUB596 

8948 PRIHT:PRIHT"ir; 

8956 LL*="VOUS RVEZ RBRTTU; " GOSUB590 
3952 PRINT35-BM; : LL»=-Z0UZOUS. " = GOSUB590 
S960 LL*="VOTRE SCOPE : ":G0SUB599 
8962 PRIHTSC; :LL*=".":G0SUB598 

8964 LLJ=" -: 

8966 LL*="MRLHEUREUSEMENT VOTRE DEMEURE" :GOSUB598 
8968 LL«="fi ETE DETRUITE" :&0SUB596 
8999 END 

9058 REM FLECHE LRHCEE 

9059 FL=FL-1 I FFL=0THEffGOT 08906 

9C60 M=54296 ft=54277 H=54273:L=54272 ! P0KE54296, 15 

9861 FL=FL-l:IFFL<0THEN2881 

9862 POKEV+16, 1 G0SUB8148 

90b4 FORX=255TOX2STEP-7:POKEV+10,X:POKEU,129: 

P0KEfl,15:POKEH.46:P0KEL,266 

9066 NEXT 

9063 FOKEV+I6,33:POKEV+10,0 :POKEJJ,0: POKER, W 

9676 IFINT<VF/10)=INT(<Yl-21J/I0>THENOOTO9iee 

9672 IFINT<YF/10) = INTC<Y2-21V16nHENGOTO9156 

9878 G0T02638 

9168 REM BRLLON 1 CREVE 

9162 POKEV+21,247 

9164 F0RV=Y1T0219:P0KEV+3,Y:NEXT 

9185 Y1=219:RB=6 

9166 POKEV+3, VI P0KEV+21,255POKEV+7, Vl-21 

9188 BM=BM-1 :SC=SC+Vfl:G0SUB8146 

9116 IFBM=0TNENGOTO601 

9112 IFY2=Y1THENRB=-1:GOT02688 

9114 G0T02688 

9156 POKEV+21, 255-16 

9152 F0RY=Y2T0219POKEV+5,Y:NEXT 

9154 Y2=219flD=e:X2=56 

9156 POKEV+5, Y2:P0KEV+4,X2:P0KEV+8,X2: 

POKEV+9, Y2-21 POKEV+21 ,255 

9158 BM=BM-l:SC=SC+VR:G0SUB8148 

9166 IF6M=6TH£NG0T0661 

9162 IFY2=Y1THENRB=-1:GOT02888 

9164 G0T02888 

9300 FORX2=50TO158STEP5:POKEV+8,X2:POKEV+4,X2:NEXT 

9362 RD=-l: RETURN 

9800 REM BftLLONl EN HRUT 

9882 YP=YP+2:P0KEV+13,VP 

9884 IFYP-62THENGOTO9900 

9886 RB=6:Y1=219 

9808 IFY1=Y2THENRB=-1 :G0T02886 

9810 GOTO2088 

9850 VP=VP+2:POKEV+13,VP 

9852 IFVP-62THENGOTO9990 

9854 RD-8:Y2=219:X2=56 



k20UZOUS * 
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9856 POKEV+5, V2 : PuKLV + 4 . X2 FuKEV + fci,X2 PuJ-feV + 9, Y2-21 

9858 IFY2=V1THENRB=-I:GOTO2080 

9360 GOTO2088 

9900 REM PLATE FORME EGflLISEE 

9902 X2=50Y2=52:V1=52 

9964 POKEV+4, X2 = FOKEV+5. V2 PGKEV+3, VI 

9906 POKEV+21, 255-24 

9988 FORI=X1T0234:POKEV+2,I:NEXT 

9910 POKEV+16, 161 

9920 fl-0 

9922 FORX=0TO4STEP.5POKEV+14,R:POKEV+15,32-X:R-fl+l:NEXT 

9923 FORX=lT04STEP.5:POKEV+14.R:POKEV+15.52+X:ft=fl+i:N£XT 

9924 F0RV=52TOY0-3STEP. 5 : POKEV 15, Y NEXT 
9926 POKEV+16. 166 . 

3938 PRINT-n" POKEV+21, 6 

9999 PRINT-HELPS! !"'END 

10B80 POKE2040, 193POKE2041, 194POKE2042, 194 P0KE2B43, 135 P0KE2644, 195 

10081 POKE2045, 196 P0KE2846. 197P0KE2847, 198 

10802 F0RI=193T0193:FQRN=8T0t2 REAHQ P0KE1*64+N.0 NEXTN, I 

10010 REM BONHOMME 

10012 DRTR3. 24. 0.4, 60. 0,12, 60, 0,20, 255. 0,36, 36, 0.36, 196.0.64,36,0,64.24.0 

16014 DRTR64, 252, 0,64, 60, 0.64, 232, 0,64,60,0. 64, 60.0, 36,60.0.36.24,6 

16016 DRTR28, 24, 0.12, 24. 0,4, 24, 0,136. 56, 1.255. 253, 253. 255, 253. 235 

10626 REM ZOUZOU 

10022 DATA?. 231, 224. 4, 60. 32.0.66.0,0.90.0.0.66,0,6.36.0,0.24,8.8,126.0 

18024 DATA126, 233.234, 126. 235,234. 3. 193.192.3.247.192,1.239.128.0,195,6,6,: 

10026 DATA0, 60, 0,0, 24, 0.0, 36, 0.8. 66, 0,0, 129, 0,7, 0,224 

10030 REM BRLLONS 

18032 DATfl0,24.0,0, 126,0, 1-235. 128.7,255.224.15.233,240, 15.233.240, 16, 182.; 

19033 DRTR22, 132. 248,49, 182.232,49. 134,28,22,246.248.22,246,248 

18034 DflTA0,246. 16. 13,235,240,7,255.224,1,235.128,0,126.0,0.24,0,0,231.0.1. 

10836 DRTR2,0,64 

10040 REM FLECHE 

10042 DRTRO,0,0.0,0,0,0,0,0,0,0,0 

10044 DRTRO. 0.8, 0,0, 0,0, 0,6, 6,2. I. 6.15, 253, 6,15, 233. 6.2*1 

10046 DRTR8-0. 0,0, 0,0. 6.0, 0,0, 0.0, 6, 6,0. 0,0, 0,0, 0.0. 0,8. 0,0. 6.0, 8, 6.0 

IIW58 REM SPRITE PLATE FORME 

10652 DATRO. 0.6. 0.0. 0,0, 0,0, 0,6- 0.0. 0.0 

10854 DhTAO. 0,0, 0.0, 0,0, 0,8, 6. 0.0. 8. 0.8, 0,0, 6, 255. 235, 233 

10056 DRTRI.128, 1.2.64,2,4.32,4,8,16,8.16.8,16,32.4,32 

10858 PATA64, 2. 64. 128.1. 128/253. 233. 233 

10060 REM SPRITE PIERRE 

10062 DRTR8, 0,0, 0.6, 0,6, 8. 8. 0.0, 0,0, 0,0 -0.0, 0,0, 0,0 

10064 DATR3- 252, 0.31. 253. 128,63. 253. 242. 63. 253- 254, 63. 233. 235. 127.255.253 

10066 DRTR233. 233. 255. 255. 253, 253. 235, 253, 234, 31. 233. 232, 13,233,232 

16068 DHTR3. 235. 248, 6,233-224, 8, 128,192 

20800 RETURN 



LE HIT DU BLASE 



Ah. enfin quelqu'un qui se de- 
cide a lire mon article ! 
Bonjour cher ami. la semaine 
s'est bien passee, pas trop de 
travail ? Vous avez profite du 
beau temps ? C'est important 
de penser aussi au temps, 
nest-ce-pas ? Passons aux 
choses serieuses. vous avez 
la chance d'avoir pu acheter 
un TEXAS TI-99 pendant la 
periode oO il etait en solde. 
vous avez tres bien fait 'Quel- 
le mouche a done pique les 
dirigeants de Texas pourarre- 
ter ce superbe micro-ordina- 
teur ? Sachez, heureux cas- 
seur de budget familial, que 
les programmes pour cette 
machine sont encore regulie- 
rement disponibles et que de 
nombreuses societes travail- 
lent encore pour creer ou 
adapter des logiciels : ATARI 
par exemple ou encore PAR- 
KER et ROMOX. Pour I'ins- 
tant, ce sont encore les mo- 
dules de chez Texas qui se 
vendent le mieux. En tete du 
classement, void PARSEC, le 
logiciel avec double arbre a 
carries en tete : je pilote un 
vaisseau corsaire equipe d'un 
radar qui me precise le nom- 
bre et le type d'attaquants 
ennemis a qui je souhaite un 
bon retablissement une fois 
que je les aurais descendus. 
Ces immondes individus arri- 
vent par vague et demandent 
un solide contrdle de la ma- 
net te. sinon gare.... Ce jeu est 
obligatoire dans une logithe- 
que "in" Injouable au clavier, 
les manettes Tl sont indis pen - 
sables ou. encore mieux. 
avec les manettes Atari 
(adaptateur necessaire) et 
le synthetiseur de parole. 
TOMBSTONE CITY est un jeu 
completement fou ou je suis 
un cow-boy egare au milieu 
du 21*™ siecle qui se defend 
contre des assaillants qui ont 
une manie bizarre : une fois 
morts, il se transformed en 
cactus et encombrent le 
champ de bataille, lei encore 



les manettes de jeu sont 
fortement recommandees 
STAR TRECK maintenant ; 
encore des mutants, les Ber- 
serks cette fois-ci. qui veu- 
lent detruirela terre. C'est fou 
le nombre de monstres et 
d'aliens qui veulent detruire 
notre bonne vieille terre. 
n'est-il pas ? Je dois nettoyer 
dix secteurs de toute vie non 
humaine. j'ai a ma disposition 
un radar parlant (j'ai toujours 
avec moi mon SPEECH SYN- 
THETIZER) et je connais. sur 
trois dimensions, la position 
de mes ennemis. BURGER TI- 
ME : le time qui a pondu ca 
n'aimait surement pas le con- 
tenude son sandwich IJesuis 
un super-chef de cuisine, le 
plus rapid e super-chef de 
I'ouest ! Des oeufs menacants 
et des hot-dogs terrifiants en- 
vahissent ma cuisine, aurais- 
je le temps de fabriquer suf- 
fisamment d'hamburgers ? 
M.A.S.H., inspire du film du 
meme nom. m'oblige a aller 
secourir sous une pluie de 
bailes et d'obus les soldats 
blesses. II me faut ensuite les 
operer et repartir a nouveau 
sur le champ de bataille. Ab- 
solument infernal avec la pa- 
role ! Avec SUPER DEMON 
ATTACK, nous revoila dans 
I'espace : des monstre venus 
de i'Armada Demon veulent 
prendre possession de la ter- 
re. Je sais. je me repete, mais 
tous ces jeux sont pourtant 
differents malgre un scenario 
de base identique. Je des- 
cends done tout ce beau 
monde, bases et chefs com- 
pris. et j'ai en prime le droit de 
recommencer. HOPPER est 
mignon comme tout : je dois 
mettre en ceuvre une super 
strategie pour dejouer les 
pieges des chasseurs qui 
veulent capturer mon copain 
le Kangourou. 

Bons jeux mesdames, bons 
jeux mesdemoiselles. bons 
jeux messieurs et a la semai- 
ne prochaine. Claudius 



suite de la page 5 



PC 1500 



6801:FOR G=1T0 ? 
6002:L»<B, G)=J»CB 

.G) 
6093: NEXT G 
6010:GOTO 5020 
0090:UAIT 90:CLS 
:PR1NT "CO0R 
DONNEES DEPA 
RT M ; 
0010: BEEP 1 : INPUT 
Xl:PRlNr Xj; 
" ";:BEEP I : 
INPUT Y*: 
PRINT Y*: IF 
Y*=-V'THEN 
GOTO S08J 
8011:Y1=<ASC Y*)- 
64: IF X]>]5 
OR YO150R X 
KIOR Yl(| 
THEN 1E4 
0015:R1=X1:Q1=YJ 
0020:CLS :PRINT " 
COOROONNEES 
PRR1UEE "; 



10029:BEEP 1: INPUT 
X2=PRINI X2I 
■' ";:BEEP I: 

INPUT Y»: 
PRINT Y«:v2= 
CASE Y*>-64 

10030: IF X2M50K Y 
2>IS0R X2<I 
OR Y2UTHEN 
10020 

10031: IF H*="H"AN0 
V20Y1THEN 
GOTO 10000 

10032: IF H*=' , U"fiND 
X20X1 THEN 
GOTO 10008 

10033: IF H*="H"AN0 
(X2-X1 J + JOL 
THEN GOTO 10 

000 

10034: IF HS="U"AND 
CY2-YI>+K>L 
THEN GOTO 10 
000 

10035: \f X1>X20R Y 
l>Y2THEN 
GOTO 10800 

18836: YH^0: FDR U»l 
TO L: IF L*<U 
)^"+"THEN 
LET YH=YH*1 

10037: NEXT U 

10038: IF YH^LTHEN 
GOTO 6081 

10033:FOR I=1T0 L: 
IF MSCRI, Ql ) 
=""AND Li(I ) 
="* "THEN 



GO 10 6891 
18840: IF \i* = "H" 

THEN LES Rl= 

19941: IF H*="U" 

THEN LET Di-- 

QI+1 
10042:NEXT I 
10043:CLS :PRINT " 

xtttttj JE 

ESSINE **Tt* 

tf 
19044:PT=C:nU=i:PS 

=0 
10045:COLOR 0:FOR 

U=l TO L 
18859: 0=<Xl*14)-6: 

P=<C15-Y1>*1 

10860:GLCURSOR CO, 
P): JF U(U)- 
"*"THEN GOTO 
15000 

10061:LPRINT L*CW) 
:GLCURS0R (0 
, PKLPRINT L 
*(U> 

10065:GOrO 15000 

18020: IF H*="H" 

THEN LEf Xl= 



10 



+ 1 



19108:NEXT U 
18101:80=0 
10105: IF LP=2THEN 
LET BO^50 



10102 


IF GH^BTHEN 




let nu=nut2 


10)19 


PT(B)=<PS»nU 




>*BO 


10128 


UB)-=i<B)*Pr 




(8) 


10125 


GLCURSOR <5, 




-59) 


10130 


CLS :UAIT 39 




0:PRINT "JOU 




EUR";B;prcB) 




; 'PTS fOIAL" 




: r<B>; -PTS" 


10200 


N^8:0=B 


10230 


GOSUB 3900 


18259 


GH=1 


12900 


IF PA=J0ThEn 




GOTO 20090 


12005 


IF 8=J0IHEN 




GOTO 5001 


12810 


GOTO 5010 


14393 


END 


15080 


REM COnPTAGE 




OLS POINTS 


15001 


Ut="" 


15002 


II LttU)-"* 11 




THEN LEf U» ■ 


15011 


IF L*(U>-"*" 




'HEN LIT L»< 




U)--n»(Xl, Yl >■ 



a suivre 



SOLUTION DE L'HIPPOREBUS : 



10 FOR 1=1 TO 8 
20 READ X 
30 PRINT CHR$(X); 
40 NEXT I 
50 END 

60 DATA 67,65,80,65, 
67,73,84,69 




13 Micro-ordinateurs a prix 
charter Duriez 




ERRATA Achetez sur plate on par posts 



Voy ti l» Bant 
***» d'bsai Dvriez 



Jl_l 




DES LOCICIELS POUR ORIC, SURMESURE. 



DEUX SUPER-CONCOURS PERMANENTS 

1 000 francs de prix au MEILLEUR LOGICIEL du MOIS et un VOYAGE EN CALIFORNIE 

au meilleur logiciel du TRIMESTRE. 



Un concours de plus ! 
Rien de bien original dans cette 
lormulc, pourtant nous es- 
sayons de faire queique chose 
de different : nous organlsons 
un concours permanent tous 
les mols et tous les trimestres ! 
Et avec des prix dlgnes des pro- 
grammes que vous allez nous 
envoyer ! 

De plus, ce seront les lecteurs 
eux-memes qui voteront pour 
leurs programmes preferes sur 
la grille recapitulative men- 
suelle. 

Pas de Jury, pas de decision ar- 
bitrage, HEBDOGICIEL n'inter 
venant que dans le choix des 
programmes qui devront etre 
ORIGINAL) Xet FRANCAIS. Si 
votre programme n'est pas tout 
a fait au point, un de nos spe- 
cial istes vous dira comment 
t'ameliorer pour pouvoir nous le 
proposer a nouveau. 



Pour partlciper, il vous suffit de 
nous envoyer vos programmes 
accompagnes du bon de parti- 
cipation ainsl que toutes les ex- 
plications nee essa ires a ('utili- 
sation de ce programme. 
Vous pouvez obtenir gratuite- 
mant des bona de participation 
en ecrivant au Journal. 
Bonne chancel 

Reglemen! : 

ART. 1 : HEBDOGICIEL organise 
de facon mensuelle el tnmes- 
tnelle un concours dote de prix 
recompensant le meilleur logi- 
ciel du mois et du trimestre 
ART. 2 : Ce concours est ouvert a 
tout auteur de logiciel queique 
soil le materiel sur lequel il est 
realise L'envoi d'un logiciel en 
K7 ou disquette accompagne 
d'un bon de participation de- 
coupe dans HEBDOGICIEL ou 
envoye gratuitement sur de- 



mande par la redaction de notre 
lournal constitue facte de can- 
didature 

ART. 3 La redaction d'HEBDO- 
GICIEL se reserve le droit de 
selectionner sur la base de la 
qualite et de I'originalite les logi- 
Ciels qui sont publies dans le 
journal 

ART. 4 Ce sont les lecteurs qui, 
par leur vole, determinent les 
meilleurs logiciels mensuel et 
Irimestriel. 

ART. 5 Le prix alloue pour le 
concours mensuel sera remis au 
plus tard un mois apres la clo- 
ture du concours mensuel. 
ART. 6: Le prix alloue pour le 
concours Irimestriel sera remis 
au plus tard un mois apres la clo- 
ture du concours tnmestfiel. 
ART, 7: Le present reglement a 
ete depose chez Maitre Jauna- 
tre, 1. rue des Halles 75001 Paris. 
ART 8: HEBDOGICIEL se reser- 



ve le droit d'interrompre a tout 
moment le present concours en 
en avisant les lecteurs un mois 
avant. 

ART. 9 : La participation au con- 
cours entraine I'acceptation par 
les concurrents du present re- 
glement. 

HEBDOGICIEL: 27, rue du Gal 
FOY - 75008 PARIS. 



Sera declare gagnant le pro- 
gramme qui aura obtenu le plus 
fort pourcentage de vote par 
rapport a la totallte des pro- 
grammes recus pour un meme 
ordinateur. 

Ainsl, pas de favoritisme pour 
les ordinateurs plus puissants 
ou tres diffuses. 



BON DE PARTICIPATION 



Nom : 

Prenom : 

Age : Profession : 

Adresse : 

N° telephone : 

Nom du programme : 

Nom du materiel utilise : 

declare etre I'auteur de ce programme qui n'est ni une imitation ni une 
copie d'un programme existant. Ce programme reste ma propfiete et 
j'autorise HEBDOGICIEL a le publier. La remuneration pour les pages 
publiees sera de 1000 francs par page (un programme n'occupant pas 
une page entiere sera remunere au prorata de la surface occupee) 

Signature obligatoire : 

(signature des parents pour les mineurs). 

Le programme doit etre expedie sur support magnetique (cassette ou 
disquette) accompagne d'un descri p tif detaillfe du materiel utilise, 
d'une notice d'utilisation du prog ramme . Les supports des program-, 
mes publies sont conserves , n'oubliez done pas d'en faire une copie. 



RECOMMANDATIONS AUX LEC- 
TEURS QUI SOUHAITENT FAIRE 
PUBLIER UN PROGRAMME : 

• Envoyez vos supports, mode 
d'emploi, listings et bon de parti- 
cipation dans une meme enve- 
loppe. 

Vous pouvez nous envoyer plu- 
sieurs programmes sur un meme 
support en I'tndiquant sur votre 
Bon de Participation. 

• N'oubliez pas et ceci est tres 
important, d'inscrire sur vos sup- 
ports votre nom, le nom du pro- 
gramme et le materiel utilise. 
Notez dans les premieres lignes 
de votre programme, sous forme 
de REM. votre nom. le nom du pro- 
gramme et le materiel auquel il est 



destine. Nous pourrons ainsi re- 
perer facilement les listings, une 
fois sortis de I'imprimante. 

• Dupliquez plusieurs fois sur la 
cassette et a des niveaux d'enre- 
gistrement differents votre pro- 
gramme. Nous aurons plus de 
chance d'arrivera le charger si les 
magnetophones ne sont pas tout 
a fait compatibles. 

• En ce qui concerne les bons de 
participation, mettez votre adres- 
se com p lete et votre numero de 
telephone (si vous en avez un). 

• Pour tout envoi tel que "petites 
annonces". "abonnement" et 
"programmes" specifiez sur vos 
enveloppes I'objet de votre cour- 



Ne nous envoyez plus d'envelop- 
pestimbrees, mettez simplement 
les timbres joints a votre envoi. 

• Expliquez les particularities de 
votre ordinateur et le moyen 
d 'adapter votre programme a 
d'autres ordinateurs. 

• Vu le nombre important de pro- 
grammes similaires que nous re- 
cevons, evitez de nous envoyez 
les jeux suivants : BIORYTHMES. 
MASTERMIND, RENDU. TOUR DE 
HANOI. CALENDRIER. BATAILLE 
NAVALE. POKER. JACKPOT 
BOWLING. BLACK JACK. LABY- 
RINTHS. MEMORY SIMON. 421. 
OTHELLO. SOLITAIRE, LOTO 



LA REGLE A CALCUL RE- 
COMPENSE LES MEILLEURS 
LOGICIELS EN OFFRANT A 
CHACUN DES PREMIERS 
DANS LEUR CATEGORIE UN 
OUVRAGE A CHOISIR DANS 
SON RAYON LIBRAIRIE (ED1- 
TEURS : BORDAS, DUNOD, 
EYROLLES, MASSON, NA- 
THAN, PSI, SHIFT, SYBEX). 



SQUIRELLE RECOMPENSE LE 
MEILLEUR LOGICIEL DU MOIS 
PAR 2 CASSETTES A CHOISIR 
DANS SA LOGITHEQUE. 



Les editions du CAGIRE offrent 
au meilleur logiciel du mois sur 
HP 41, leur livre "autour de la bou- 
cle" de Janick TAILLANDIER. 



DDI OFFRE CINQ CASSETTES 
DATA OR VIERGES AU MEIL- 
LEUR PROGRAMME DE CHA- 
QUE CATEGORIE. 



Le Club PPC-T offre au meilleur 
logiciel en langage FORTH sur 
HE! LETT-PACKARD une adhe- 
sion gratuite a son club. 



LOGI'STICK OFFRE UNE GAM- 
ME COMPLETE DE SES CAS- 
SETTES OE JEUX POUR LE 
MEILLEUR LOGICIEL DU MOIS 
FX 702 P ET POUR LE MEILLEUR 
LOGICIEL PC 1500. 
IL OFFRE EGALEMENT UN 
"CALC" ET UN "GRAPHE" POUR 
LE MEILLEUR PROGRAMME 
CANON. 



MINES 



Etes-vous prets a affronter les dangers d'un champ de 
mines ? Oui, alors choisissez leur nombre (100 a 300) et 
observez bien leur localisation... Dans un temps de 30 a 
60 secondes, les mines seront enterr6es. Et vous devrez 
traverser le champ ! 

Lionel BECKER 



13 CLEfiS 

14 CLS 

15 GOTO SaOB 

16 CLERR 
15 Cl_5 

IB REM nUESTIQNNRIRC 

20 CLS 

21 PRINT TRB l.'"CiUEi_ EST UOTRE 

■l-E;iCM 7" 

"_G INPUT Z| 

3S PRINT HT 2.6. -1 



CLS 

LET CMRN=2 

PR1KT RT *, 

UOULEZ-UOUS 



70 INPUT H 



'COH6IEN DE MX 
R" 

-UOTRE CHRMP D 

" (ENTRE 100 ET 



IF fi<=99 OR R)=3Bl THEN GOT 
70 

Bl PRINT TRB 30, i: "1 UOULCZ-UOU 
30 SECONDES' - 

63 PRINT TRB 30,3; ") UOULEZ-VOU 
1 MINUTE" 

S3 PRINT TAB 30, 'POUR MEMORISE 
L.E PRRCOURS" 
55 INPUT E» 
£5_ 1 !. E *°" i " RND E»(J-2- TMEN 



GOTO 85 
67 CLS 
BB REM - 
89 FRST 
^Jg^PRINT 



-DESSIN DU UEU- 



"■'■■y 



°;/ 



100 FOR _ 

110 PRINT RT O 



120 NEXT t 

138 PRINT FIT 31,9, 'jj, 

OS bJH ITtHPSJI ~ 

158 FOR U»I TO R 



160 


LET X-INT IRMO.321 




LET YeINT IRNCflCI 
PRINT RT V,X;"«" 












a a a 




325 


GOTO 400 




REM --DEPLRCEHEMT- 


300 




a ue 














PRINT RT «,a; "O" 



DE-L HOMM 



Z*81 



335 IF INKEY»«"" THEN GOTO 335 

327 PRINT RT R,B;"." 

330 IF INKEY»="5" THEN LET B=B- 

340 IF INKEYS = '"6" THEN LET fi = R* 
1 

350 IF INKEY»="7" THEN LET H=R- 
1 

3O0 IF INKEY*»"B" THEN LET B = B* 
1 

370 IF R-IO THEN GOTO 300 

375 IF B=32 TMEN LET B.31 

376 IF Ba-1 TMEN LET BnO 
379 PRINT RT R,B:"." 

330 IF R = THEN GOTO 8500 

390 IF R|!fltl,EH!= , 'i" TMEN GOT 
O 495 

395 GOTO 320 

396 REM --TEMPS -DE -REFLEXION -- 
400 PRINT RT 19,4,' "RLLEZ, IL FRU 

T MEMORISER LE " 

410 PRINT RT 20,3, "PRRCOURS EN 
".URL E«t3B;" SECONDES" 

420 IF E«s"l" THEN GOTO 422 

421 GOTO 42Q 

423 FOR L=0 TO 364 

4 23 NEXT L 

430 IF E*»"2" TMEN GOTO 432 

,131 GOTO 4413 

*3a FGR L-0 TO 7&5 



FOR 



TO 17 



print rt r , a; 



1-X3 PRINT RT 13,l f . 
- C .r,,.ER5ER LE CHRMP 
' 444 PRH-~ ' 



UOULEZ-l-'OUS 



RT 20. 1, " 



445 INPUT E 

446 IF 3t=" 

447 IF 3* = ' 

448 IF B*< ; 
GOTO 445 



THEN GOTO 449 
THEN GOTO 40 
■ OR Gf< > -N" TH 



INT RT 19.1,/' 

4.80 PRINT RT 23,5, ■" 

iSB GOTO 30O 

4-30 REM PERDU 

4-^5 PRINT RT 19 . 1. " 



4 3£ PRINT RT 20, l f| 

Baat^QR P"0 TO 30 
501 PRINT RT R,B;" 
. RT R . B : " * " 



S02 PRINT RT R,B;"i 

SIS NEXT P 

515 PRINT RT 19,1; 

51S PRINT RT 20,1; 



525 PRINT RT 

526 LET CHRN- 

530 IF CHRN'B THEN GOTO 5B4 

535 LET Rf tfl+l,B+l) -"B" 

54.0 PRINT RT 19,3;"RH,IL NE UOU 

S RESTE PLUS OUE" 

550 PRINT RT 29,6, JBHOH 

556 NEXT 

560 PRINT RT 19, 



RINT RT R,B: " . " 
ET CHRN»CHRN-1 



M-0 TO 100 



PRINT RT 20,2, 



530 GOTO 300 

5 83 CLS 

534 FRST 

58S FOR P"0 

5SS FOR L=0 
590 IF -" 



-,L + H 

Ptl,L + l) 

595 NEXT 

596 NEXT 

597 5LOU 
599 REM 



THEN PRINT RT P,L,R*f 



200 



-RFFICMRGE-DU-PERDRNT- 

600 PRINT RT I9,2,'"UOILR LE PRR 
COURS" 

601 FOR K 

602 NEXT 
605 CL5 
610 PRINT RT 8,3, "RH ";Z*.' 

S DEURIEZ MIEUX " 

^50 PRINT RT 9,2; "OBSEFiUEn LE C 
HRHP HRIS UOUS '" 

630 PRINT RT 1B,3; "FEREI MIEUX 
LR PROCHRIME FOIS" 

64 PRINT TRB 30 , "UOULCZ -UOUS R 
EUOUER IO/N) " 



,uou 



INPUT T* 
ir T*»"0" 



THEN GOTO 40 
IF Ti."N" THEN GOTO fiO0 

— OR T*< !-"N" TMEN 



665 

SCITO BSB 

660 CLS 

690 PRINT RT 7,3; "DOI 
PROCHRINC FOIS" 

700 STOP 

7999 REM PRESEI 



1RCE,R LR 




UNE 
3090 
3095 
8100 



5 .your: 



') UOULEZ-UOU 
") UOULEZ-UOU 



8150 
9160 
GOTO 
3S00 
8504 



RPPUYER SUR 
TOUCHE " 

IF INREYJa"" THEti GOTO 8060 
CLS 

PRI^rT TRB 30, 1, 

REGLC5 DU JEU [ ' 

PRINT TRB 30,2; 

"" DIRECTCMCNT'' 

INT RT B,*;"CNTREZ LE NOM 
HOI8I" 
INPUT R« 

IF R«>"1" THEN GOTO B600 
IF Ria"3" TMEN GOTO 16 
IF R»< J-l" OR R*< >"3" THEN 
8130 
CLS 
REM -RFF ICHROE -DU -ORGNRNT - 




saao print TRB --sayriTT 

OB^B^PRINT TRB 3B, . ■'(••£>"» *** *-""» 

yil PRS FRIT EXPBE5" 

OS20 PRINT TRB 38,"dE SUPPOSE. H 

RIB FCLICITRTIONS. " 

653Q PRINT TRB 30 . "UNE RUTRE FOI 

S UE UOUS BRTTRRI." .._„ _ 

8S40 PRINT TRB 30 , "UOULEZ -UOUS R 

CJOUER 7 IQ/N) " 

Q550 INPUT Pfi 

3S60 IF P*-"0" THEN GOTO 41 

3370 IF P«-'"N" THEN GOTO 680 

HIS R^M — - REGLES-OU-JEU — - 
3605 PRINT RT 0.. B; "REGLES DU UEU 



lO PRINT RT 1, 



3620 PRINT RT 4,1; "LC UEU C 

TE R FRIRE TRRUER-" 

563H PRINT RT S " 
HOMME 



;MT RT S,0; '5=R UOTRE BON 
PRINT RT U 6,oT-SUD RU COTE N 
OHD.PDUR CELR UOUS" 
3650 PRINT RT 7 , O, "DISPOSEZ DES 

-jSBQ PRINT TRB 30, "MAIS RTTENT IO 
N 31 UOUS DESCEMDEZ" 

8070 PRINT RT IB.e; "TROP BR5 , UOU 
3 REUENEZ R VOTRE 

;~>r,F,a nn int rt il ,Q 

HRT . UOUS RUEZ POUR 

3690 PRINT RT 12 . © ." MEMORISER LB 

PRRCOURS 30 ET 60'- pj 



DINT DE DEP 




DEMANDEZ LE PROGRAMME 

Achetez vos logiciels les yeux fermes, nous les avons testes pour vous ! 

Nous avons seJec'Jonne pour vous les mellleurs logiciels octuellement dlsponlbles en Franco. Nous ne 
. ■. ■ : ■. i- 1 .■. ■ pas que celt* Ilste est complete el definitive et II est evident que nous y rajouterons regu- 
llerement des programmes au fur «( ., me sure que nous fes testvrons. Pourtant, vous chercherez en 
vain certains programmes qui Jou'ssenf d'une bonne reputation et qui se vendent surtout grace a la 
publlclte et aux consells des vendeurs quf ne peuvent pas connaitre tous fes logiciels dlsponlbles. 
Nous avons classe a part les logiciels educatlfs et, par soucl d'honnetcte, nos propres prodults ; les 
Hebdoglclel Software. 

Lesprlx Sont, nous t'eaperons, lesmellleuri du murche surtout pour les abonnes - anclens etnouveeux 
- qui benellclent enp/us d'une remise de 10 %. SI vous etes nombreux a nous sulvre dans cette expe- 
rience nous pourrons rapldement arrlver a lalre balsser les tarlts des fournfsseurs pour atte'ndre 
I'obfectlt que nous nous sommes fixe : ramener les prlx a une plus Juste valeur I 
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INDIENS 



Vous etes seul dans Fort-Apache, et vous subissez les 
assauts incessants d'indiens excites, desireux de s'empa- 
rer de votre scalp. A vous, si vous tenez a votre vie, de 
repousser leurs attaques. 

Vous ne pouvez tirer que paries meurtheres, et il vous faut 
tuer I'indien pour avoir quatre points ; abattre le cheval ne 
rapportequ'unseul point, et la chute de son cheval n'arre- 
te pas I'assaillant. 

Deplacez-vous a I'aide des touches A et Z et appuyez sur 
la touche "espace" pour tirer ; chaque tir annule le prece- 
dent. Les touches sont a repetition automatique. 
Bientdt les cadavres jonchent la plaine, mais la vitesse 
augmente rapidement. Alors, defendez-vous bien ! 

P-H BERSANl 



• P0KE36379. 13 PRINT-HM I N D I E N S 9" 

I FPItlT'CIW »l INUP" FRIMT"«Et1 I^DOUH" PRIHT"»£PHLt = FIKE 

i pRiHT^'juracaa push hhv kev to plry ■- pokei98,0 whitiss.i 
; reh nwmmm* 

; REM # GEHERfiTEUR * 

' REM * DE • 

J REM * CflRflCTERES * 

> p|yNT*Tpw****869,255 : POKE56,23 ; POKE52,28XLR^CO-384e0^-?168-POKE368?9,250 

; REM 

5 FU Ri = rrjTOCO*506PCKEI,0 NEXT; FORI *GTuG*400:POKEI.0: NEXT I 

) FORL=0TO? REfiDHUFPI— 1THEN45 

i REM 

S P0KEG+8«R+L,fi NEXTL R=R+1 GOT036 

) DA.TR15?, 135-90.69.24,123.58. 192. 1.38- 14.4,32, 12- J6, 60 

; DhTFjI.2.30- 14,4.32- 12.4-84,32. 193.198. 190,34-65. I 23 

I DfiTRS4,92. 192, 191. 190.34.68.40, 16.20.34.92.80- 112, 16,16 

3 rjftTfM, 153.90.60,24.24. 165-66-48.120. 48, 254.11<i. 56. 40. 236 

I BRTfU42?236 172,68.12.61,34,96,48,48.48,43,48,48-43,48,0.0,0,8,0 

5 DHTA2, 153. 255, 0,0. 54, 34- 38, 126, 255, 0.8,9. 16, 0.8, 0.8.-1 

; REM *•*«***•**«*#• 

' REM fDEBUT PRRTIE* 

3 REM ♦•»**•••***•** 

I t=36S77 : U-7923 : POKEW, 7 : FORZ-0TO1 1 :PQKE?682+44*Z. 9 : NEXTZ 
■ CO=3S400 P=7680 FORI-COTOCO+506 POKEI .0-NEXTI -H«78 
3 REM 
3 FOPZ=0TO8-O=INT(RNDCZ)*506;POKEP+O,5 P0KEC0*0,5 NEXTZ 

* REM 
5 REM 

3 hi=32 6=2 C=3 D=4 R=INHRH0C1>*17 J ;M=P+<R+2>*22- POKES+1. 15 : K«11 




\f\C20 



72 REM 

73 REM 

75 R=FEEK(283j IFh=17THENK*EW-N WaH-22 PWEW.7 

77 REM 

73 REM 

0B IFa»33THEHPi>.EW ■ N H=W*22 P0K£H, 7 

82 REM 

S3 REM 

35 GETfl* IFB*-" "fWDreB«H+l)O9TtCHP0KES,2ie FOPr-lT0S9 l£XT POKES. 8 TT"U*l 

36 REM 

37 P0KETT.M-TT=TT*1 ROKETT, 12 
88 REM 

■50 POKEM. M P0KEM+22.N -N=f1-1 -POKEM. B- IFtl/2* I MI i 1V2 .'THENP0KEJW22-C 

92 REM 

93 REM 

95 IF!V20IHT<M/2;'THEMP<"j>EM*22,r 

36 REM 

97 REM 

99 IFU>=20THEHH»0 

190 POKES-1-220 FDPT^ITGH HEXT POKES-1.209 FOPI=lT0H/2 NEXT ROKES-1 .0 

102 POKET.N T»T*1 POKET, 12 

103 REM 

104 REM 

105 IFFEEKi.M-1 >«90RPEEK<M*21 j«?THEN2»0 
186 REM 

107 REM 

118 IFPl=TT*10RM=TTTHEHPrjKEM,6 P0KEM*22-C PCiKEM-1 ,M GOTO130 

112 REM 

113 REM 

115 IFTT«M+210RTT»M*22THEHPQK£H*22,».: POKEM. N POKEM-l. 1 FOftr = lTO480 NEXT GDTO120 

116 PRIMr'smBCC-RE" ;U, "RECORD", GG0TQ75 
113 REM 

119 REM 

128 POKEM-l, NM=M*21 POKEM- 1 P0KE3-1 . 150 FORT = 1TO120 NEXT POKES- 1.B: TT-0U-U-M 
121 F0RT=1 TO500 NEXT : B=8 ■ C*N ■ D=N ■ K=N ■ G0TO75 

125 REM 

126 REM 

127 REM 

130 F0RL=1T015STEP3 FORMM=285TO220*L»2 P0KE&-1.MM NEXTMM HEXTL POKES-1.0'U=U*4 

132 REM 

133 REM 

135 FORT=0TO300 NEXTT POKEM. N POKEM, 10 P0KEM*22 • K FORT=1TO2000 NEXT - TT*0GOTO7e 

150 REM 

155 REM 

160 REM ••«*«******** 

165 REM * * 

178 REM » FIN DE * 

175 REM * * 

180 REM * PA.RTIE * 

1S5 REM * * 

198 REM ***•*•!*•***•• 

195 REM 

200 POKEW, N : W=W+2 1 ■ POKEM. M ■ POKEM+22 , U 

203 REM 

206 REM 

210 POXEW, 0:POKEU-21. 8 F0RT.€)T0159HEXT :POKEU-N'. P0KEM-21.il M=W*22 1PW^3163THEN22 



212 REM 

213 REM 
215 GOTO210 

217 REM 

218 REM 

220 FORT = 1TO3000 NEXT P0KE36369. 242 PRlNT-ramaM I ROP TKRtHlHI" 

223 REM 

224 REM 

225 PRINT"ir-flIS VOUS FlVEZ " -PRINTITPOINTS" 
228 REM 

230 IFU>GTHENPRINT"H~T LE RECORD EST BHTTU" G=U 

235 REM 

236 REM 

240 PRIHT-EOCa "1,* I ♦/! J ~l IT T_* I 9" POKE193.0 UflIT198. 1 

245 FOR1=38480TO38905 P0KE1 .8 NEXT i P0KE36369.255 ! PRINT "H" - TT=8 ■ U=0 GOTO50 

250 REM _ 

253 REM ■*»*»****»•** ■ 



EMPRUNT 



EMPRUNT est ecrit pour TRS 80 modele 1 ou ses 
compatibles et imprimante Microline 80. 
Ce programme permet : 

- connaissant le taux d'interet d'un emprunt, sa 
duree et le montant des echeances constantes, 
d'en connaTtre le montant en capital. 

- connaissant le montant en capital, sa duree et le 
taux d'interet, de connaTtre le montant des 
echeances constantes. 

- de faire un tableau d'amortissement sur impri- 
mante. 

- de calculer le capital restant du apres paiement 
de n ech6ances. 

Tout ca ne manque pas d'interet, pas vrai ? 

Edmond CARCELLE 



Remarque: 

[.'instruction LPRINT CHRS (27) CHRS (66) est un mode de la 
Microline 80 permettant I'impression sur 64 colonnes par re- 
duction des marges gauche et droite. 

Particularitesdu programme : lechoix ent re deux types d'inte- 
rets : reels et proportionnels correspondant aux interets com- 
poses et aux interets simples. 



TfcS 



80 



IB! 'J i :■;>: ;/..;; 

20 DEFDBLC.E. M. P 

30 CLS 

UZ T*-"IfiUX ONNUEL" 

5B C»-"MONTftNT OU PRET" 

&0 Et-'MONTHNT DE L'ECHEANCE" 

70 P«-"NOnBBE RNNUEL D' ECHEANCES" 

E0 N*"' i NQMBPE TOrOL 0' ECHEANCES" 

■|« i'.l K*»»»-.. »»" 

1000 CLSiPniNT38&."L' EMPRUNT ET SON REM80URSEMENT" 

1010 PRINTlPRINTaiSH. " MEN U" I PRINT 

I02B fRINT"!.- MONTONT OE L' EMPRUNT 

2.- CW-CUL DES ECHEANCES 

Z.- TABLEAU D* AMORt ISSEMtTHT 

U.- CAPITAL RESIANT DU A L' ECHEANCE N 

S. - PIN DE PROGRAMME" 

10J0 PRINTiPRINTHNPUT"VOTRE CH0IX"lCO 

10i>0 ONCOGOTO20B0, IBMB. r,000.GB0», 1 B5B 

I BUB END 

.:»00 PCM MONTANT DC L' EMPRUNT 

iBIB PRIHTE»l "1NPUTE 




. ."A 






2820 PRINTT«li INPUTT 

2830 PRINTP*! UNPUTP 

204B PRINTNH :INPUTN 

2030 GO5UB9000 

2068 C-E*<I-C1+M)+-N)/MICLS 

2070 GCSUB91B8 

2B80 PRINT"EN REMBOURSANT ■ i I PRINTUSING011 El I PRINT" FRS PAR - 1 PE* 

2B90 PRINTNT" FOIS, VOUS POUVEZ OBTENIR UN PRET DE" 

2188 PRINTTABC20) tUSING«»!Cl iPRINT" FRS" 

2118 PRINT"« UN TAUX DE "ITI" *" iPRINTi PRINT 

2120 CO-<E*N>-C 

2138 PRINT"LE MONTANT TOTAL DES AGIOS SERA DE " 1 I PRINTUSI NGA«lCO( I PRINT" FRS" 

21&8 PRINTiPRINTiPRINT"TAPEZ UNE TOUCHE POUR REVEN1R OU MENU" 

2138 L*-INKEY«HFL •-""THEN2138ELSE1B80 

3880 REM CALCUL DES ECHEANCES 

3B10 PRINTT»t«INPUTT 

3028 PRINTCtl UNPUTC 

3B3B PRINTPtt UNPUTP 

3848 PRINTNtl UNPUTN 

3B30 GOSUB9BB0 

I860 E-C*M/<I-(1*M)»-N) 

3878 G03UB91BB 

3880 CLSiPRINT"POUR REMBOURSER " I » PRINTUSI NCO»t Cl i PRI NT" FRS" 

3B9B PRINT"AVEC DES INTERETS A "iTl" * PAR AN 

3188 PRINT "EN "iNl" " I PE* 

3118 PRINT-LE MONTONT DE CHACUNE DES ECHEANCES SERA DE" 

3128 PRINTTAB(23> lUSINGOHEl IPRINT" FRS" 

3138 PRINTiPRINTiPRINT"TAPEZ UNE TOUCHE POUR RECVENIR AU MENU" 

3140 L«-INKEY»IIFL*--"THEN314BELSE1880 

3888 CLSiPRINTT»t tINPUTT 

3818 PRINTC*! UNPUTC 

3828 PRINTN»1 UNPUTN 

3038 PRINTPtl UNPUTP 

3848 QOSUB9BB0 

3038 E-C*M/(1-<1*M)*-N) 1G0SUB91B8 

3068 PRINTIPRINTiP«INT"ALLUMEZ L' IMPRIMANTE" 

3078 FORI-1T03888INEXT 

3080 LPRINTCHR»(27)CHR*(S6) 

3890 LPRINTSTRING»i;B4, "•") 

5180 LPRINT"* MONTANT DU PRET" ( TAB(3B) " i " i iLPRINT lUSINGO*! Cl i LPRINTTAB<63) "*" 

3110 LPRINT"* TAUX D' INTERETS" t TABC 30> " i " I ILPRI NTUSI NOO«l Ti H.PRI NTTAB(63) "*" 

3120 LPRINT"* PERIODICITE DES ECHEANCES" I TOBt 30) " « " I PE». I T0BtG3) "•" 

3130 LPRINT"* NOMBRE 0' ECHEANCES" tTAB( 38) " i " I INT <N> tTOB<63) "*" 

3148 LPRINTSTRIN0«(G4. "*"> 

3138 LPRINT"* ECHEANCE * MONTONT * AMORT 1SSEM. - INTERETS * RESTE DU *" 

31E-0 LPRINTSTRING«<64. "*"> 

3170 F0RI-1TON 

31BB IE-C*MiOE-E-IEiC*C-AE 

5198 LPRINT"*"! ILPR1NTT0B1G) I II ILPRI NTTOB' 1 1 > IUSIN00* IE I i LPRINT TAB' 23 > IUSIN0A»|0 

El JLPRINTT0B(3SHUSINGA»l IE I :LPRINTTAB149> lUSINGA«lCl i LPRINT TAB (63) I"*" 

3288 NEXT I 

5210 LPRINT"*"tTAB<63)"*"'LPRINT"*"llLPRINTTABi U ) 1USINGA4 I E*Nl iLPRINTTABi63) l"- 



5220 
3238 
3240 
BB0B 
6810 
EB20 
6030 
S04B 
6050 
C8S0 
B070 



10] 
1020 
9 180 



LPRINT"*"1TAB163)"*"ILPRINTSTRING»I64. "*") 
PR1NT"T0PEZ UNE TOUCHE POUR REVENIR AU MENU" 
L»-INKEV»! IPL«-""THEN324BELSE1B08 

CAPITAL RESTONT DU 
CLSIPRINTE41 ' INPUTE 
PRINTC*! UNPUTC 
PRINTP«I I INPUTP 
PRINTTttl INPUTT 
G05UB9888 

INPUT-OPRES QUELLE ECHEANCE V0ULF7 VOUS CDNNOITWL I 
FORB-ITOX 



'JDLDC DCSTANT DU"' 



CLSiPRINT-'APRES P01EMENT DC LO "IXT'IME EL'HCONCL" 
PRINT-VOUS RESTEI DEVOIR EN CAPITOL UNE 5J0MME D€ I" 
PR I NT TAB' 38) IUSINGA«lCl I PRI NT" FRS" 

PRlNTiPRINTiPHINT"TOPF/ UNE TUUCHC POUR REVrNlR OU MENU" 
L*-INKEY*1 IFL •■ l, '-THrNF,H.0ELGElB00 

INPUT"TOUX i PR10P0RT10NNEL OU (R)EEL"tZ* 

IFZ«-"PR"THENM-T/P/ 188i RETURN 
M-i i l'T/100) )" !/P)-l I RETURN 

[I F'-l . HUT NPE »- ,, M0 1S"» RETURN 

irP-GTHENPE»- , 'SEMESTRE" I RETURN 

IFP-4THENPE»-"TRIMEHTRE" (RETURN 

IFP-i THENPr»-"AM" I RETURN 



CARACTERES 



Ce programme est destine a vous aider pour la redefini- 
tion de nouveaux caracteres. II offre I'avantagede presen- 
ter a I'ec ran huit cadres, ce qui permet de refefinir un objet 
occupant plus d'un caractere. 

Le mode d'emploi des differentes commandes est expli- 
que dans la presentation du programme. 



Luc MARTINELLi 



9 go sub greto 

lO GO SUB 300CI 

20 OVER 1 

30 PRINT RT i . 1 ; ■' " 

4-0 IF drapeaul=l THEN GO SUB 3 
030 

50 IF INKEY* = " 1" THEN G'O SUB 8 
OOCl 

&o if drapeau2=l them go sub 3 

530 

7L1 TF INKEVts"S" THEM CO SUB & 

SO IF IMK.EV * - " •• "THEN GO SUB 9 
O00 

90 IF IIIKEYJ = "?" THEN GO TO 70 
0O 

100 IF INKEY*="3" THEN GO TO 75 
110 > IF IHKEYJ = ,, 4." THEN GO SUB 6 
0O0 

IIS IF INK.EY$ = "M" OR INKEY*="m" 
THEN GO SUB 500, 

120 IF INKEYi = ''c" OR INKEY$ = "C" 
THEN GO SUE 1000 

125 IF INKEY»="q" OR INKEY*="0" 

THEN GO SUE 2000 

130 IF IIJKEYtz'S" OR INKEY*="s" 

THEN GO SUB 3 O00 

135 IF IN KEY* = "5" AND d r s =1 THE 
N GO SUB 3500 

14-0 IF INKEY*="6" RND drs=l THE 
N GO SUB 3600 

14-5 IF IN KEY * = "7" RND d r s =1 THE 
N GO SUB 3700 

14-7 IF INKEY*="8" RND drs=l THE 
N GO SUB 3300 

150 LET i = i + ( ( INKEY*="S" ) AMD i 
<I5)-( !INKEY*="7") RND i>0) 

160 LET j = J + ( ( INKEY*="3" 1 RND J 
<31) - C ( INKEY*="S" i RND j>0J 

170 PRINT PAPER 3; AT t , J i " " 

Z2G) PAUSE 0: CO TO 30 

S00 PEM ****CHRRGEMENT MENU**** 

S10 OVER 

S20 IF i'm = l THEN GO TO 570 

530 LET Fr»=l: PRINT AT IS, 2: "H 
Scrolling @3 Chargement a'-jTfl 
B a ■ "S Chargement d ' pa f t i r d ' 
urie";TAB 2;" un caractere K7 
";TA8 4.; "dans un carre" 

54-0 PRINT RT 21 ,27; "M-- >" 

34-; ir drs*l then print rt ig , 2 

; FLR5M 1, "S" 

550 OVER 1 

560 RETURN 

5-0 LET Fm=2- PRINT RT 1S,2; "B 
No i r c i ssemen t @ Of f i chage";Tfie 2 
. "^ Ef f«c«»«n t '-'a Leors ••; tab 

2 ; ' ■ B Memorisation S Recommence 
•' : TRB 2; "E3 Sau vega rde " 

560 PRINT RT 31,2?;"M-->" 

583 > IF drapeaul = l THEN PR INT RT 

IS, 2, FLASH 1, "1" 

566 IF drsp»»u3-l THEM PRINT RT 

19 ,2; FLASH 1 : "2" 

600 OUER 1 

6 10 RETURN 
1000 PEM CHORGEMEMT DANS UN CRRR 
E 

1010 INPUT "Que 1. carre ?";v: IF 
V <1 OR V >6 THEN GO to 10 10 

1011 LET PC 1 = 1; IF V >* THEN LCT 
p C 1=9 : LET V=V -4. 

1012 let pea=v*e 

1020 input "(uiaieurs ou (Llet'.r 



es 



; r * 



THEN GO 
t" THEN 



1030 IF r»»"U" OR I" * 

TO 1110 
104.0 IT r * <: > "L" RND I 
_ GO_ TO 1020 
1050/ INPUT "OuellC Let.', re T'";t*: 

IF CODE L*<97 OR CODE l*>117 TH 
EN GO TO 1050 
1070 FOR f =0 TO 7 

1075 LET le». = (CODE l»-57» *6 
IPSO LET b=PEEK (65363+ Ltt '. + t 1 
1090 GO SUB 1 ISO 
1100 NEXT f: GO TO 1150 
11 10 LET t * = "G re " FOR F =0 TO 7 

1120 IF F>1 THEN LET t*-"*me" 

1121 input tf+l;t*;" valeur 7") ; 




1150 INPUT '"un aut 
116G IF r S = "0 " OR 

TO 100O 
1170 RETURN 
1130 REM Transforms'. 



* = "0" THEN GO 
d e c i m a '. e 



7 TO STEP -1 
n =INT ( b^ IStn ) 1 

(2tn) ) -INT (b/(2+ 




1205 LET be 

n 1 ) i K2tn) 

1210 IF bin=l THEN LET a*(PCl+f, 

PC2-n) -"1" : PRINT AT pCl+f-l,pCS 

-n-l: PAPER 0;" ": GO TO 1230 

1220 LET a$(pC14f ;pC2-n)o"8": PP 

INT RT PCl+f-l,pCS-n-lj" " 

1230 NEXT n 

124.0 BEEP .1,30: RETURN 

iOOO REM *****CHOPGEMENT K7***** 

2010 input "K7 Pret ?(Rppuyez su 

r ENTER) " ; LINE r * 

2020 LOAD "■■CODE 

2030 GO SUE 9000 

204-0 RETURN 

3O0I3 REM ****** * SCROLL ING* ****** 

3010 IF drs=l THEN GO TO 304.0 

SeaS L ET d r S = 1 : IF f rr. = 1 THEN PRI 

NT AT IS, 2; FLASH X, O'JEP 0; "S" 

3030 RETURN 

■30-0 LET dfi=0: IF ffo = l THEN PRI 

NT RT 18,2; FLASH 0; OUEP 0;"B" 

3050 RETURN 

■O REM ***5CROLLING GAUCHE*** 
3520 FOR n=l TO 16: FOR F =2 TO 3 

3530 L ET a * ( n , f-l) = a * ( n , f ) 

354-0 IF a*!n,f-ll :"1" THEN PRINT 

AT n-l,F-2; PRPER 0; ■' " GO TO 
3560 

3550 PRINT AT n -1 , f -2; " " ; LET a 
* (n , f-l) -■■0- 

3560 NEXT f: PRINT RT n - 1 . 3 1 ; " " 
: LCT «$!n,32);"0": NEXT n 
3570 BEEP .1,30: RETURN 
3600 REM *****3CPOLLING BRS***** 
3510 FOR n-15 TO 1 STEP -1: FOR 
f=l TO 32 

3620 LET a*(n+l,F)-a*(n,F> 
3S30 IF a * (n +1 , F) =" 1" THEN PAINT 

AT n , f -1; PRPER 0; " " GO TO 35 
SO 

364-0 PRINT RT n , F - 1 ; " ": LET a*( 
n + 1, ft ="0" 
3550 NEXT f : NEXT n 

36SS FOR F =0 TO 31: PRINT RT 0,f 
; OVER l; " LET a* ( 1, f +1) -"0" : 

NEXT f 
3460 BEEP .1,30: RETURN 
3700 REM ****SCROLLING HAUT**** 
3710 FOR n=2 TO 16: FOR f=l TO 3 
2 

3720 LET a * (n-l , f i =a * (n , F) 
3730 IF a* (n-l , F) = "1" THEN PRINT 

RT n -S , f-l; PAPER O; " " OO TO 
374-5 

374-0 PRINT RT n-2,f-l;" " 
374,5 IF n=16 THEN PRINT RT 15 , f - 
2i " LET a* (16 , F) ="0" 
3750 NEXT F : NEXT n 
3760 BEEP .1,30: RETURN 
3800 REM ***#SCROLLING DROIT**** 
3610 FOR n =0 TO 15: FOR f=31 TO 
1 STEP -1 

3320 LET a « (n *1 , f +1) =a • (n+1 , F) 
3830 IF a* (n + 1 , f +1) ="i" THEN PRI 
384.0 > PR INT AT n , F ; " LET alln* 
X , F +1) ="0" 

3850 NEXT f : PRINT RT n,0;" L 
ET 8* (n +1 , 1) ="0" : NEXT n 
3060 BEEP .1,30: RETURN 
600 O PEM ***** *SAUUEGRRDE******* 
6010 INPUT "Que l le (s J lettre(s) 
?"; m* 

6015 IF CODE m 4 <37 OR CODE tit % > 1 1 
3 THEN GO TO 6OO0 

6020 LET Let- (CODE m J-97) *8 
5030 INPUT "Nom f" 1 n* 

604.0 SAVE ntCODE (65368+'.et) , (LE 
N fn**6J 

6050 INPUT "On recommence (o/n) 
7"; r * 

6070 IF rti"o" THEN GO TO 6000 
60S0 RETURN 

700O REM **** ****'JHLCUR3**» ***** 
7010 CLS OUER : PRINT TLRSH 1 
;RT 0,9; "U A L E U R S";AT 3,3; 
FLASH 0;"* Numero du cadre 7" 
7020 LET i t = INKEY* 

7030 IF i« = '- -1 OR i*<"l" OR i*>"8 
■■ THEN GO TO 7020 
7035 PRINT AT 3,22; i* 

704-0 PLOT 71,127: DRRU 64. , : DRA 
U , -64- : DRRU -64. , : DRRU 0, 64, 
7050 LET v =UAL i t 
7060 GO SUB 7300 

70 70 FOR f =0 TO 7 i FOR n =0 TO 7 
7OS0 IF a|(pcl+f,pca+n)-"l" THEN 

PRINT AT 6+ f , 9+n ; PRPER ; "* " 
7090 NEXT n 

7100 PRINT RT 6+ F , 22; b ( F +1) 
7110 NEXT F 

7130 GO SUB 9500 _ 
7 14.0 PRINT RT lg.O; "B Memorisati 
on" i RT B0,Oj "B recomm«nc«" 
7150 IF IMKEY*s"3" THEN GO SUB 7 
900 : GO TO 7000 

7 16 IT INKEYS ="©" TnCN GO SUB 9 

000: GO TO 20 

7170 GO TO 7150 

7500 REM *****MEMORISRTION****» 

7510 INPUT "Mo desain (1 s 8) V" 

; V ■ IF V<1 OR V>8 THEN GO TO 7S1 



7520 GO SUB 7600 

7530 GO SUB 7900 

754-0 GO TO 7500 

7800 REM ****CALCUL UALEURS * * * * 

7810 LET PCl = l: IF v >4- THEN LET 

PCl-9: LET v-v-4. 

7620 DIM b (©) 

7O30 LET PC2= (V-ll *6+l 

734.0 FOR f =0 TO 7: FOR n =0 TO 7 

7850 IF 3 % (PC 1 + F , pc2+n > ="■ 1" THEN 

LET b(f+l) =b(f+l) +2+ (7-n) 

7S60 NEXT n : NEXT f 

7870 RETURN 

7900 REM * ** ** AFFECT AT ION* ** ** 

7910 INPUT "Quelle Lettre T*';i»: 



IT CODE I.K97 OR CODE IS>119 TM 
EN GO TO 7910 

7930 FOR f=0 TO 7: POKE USR I « ♦ f 
7940 GO SUB 95O0 

7950 INPUT "Un autre (o^n< ->",r« 
7960 IF r«»"o" THEN RETURN 
7370 OO SUB 9000 . OO TO 20 
COO0 REM ***** *UALIDATION ****** 
8010 IF f«n=2 THEN PPIfJT AT 19 , 2, 

FLASH 0, OVER 0,"g , '.AT 16,2, FL 
ASH 1, OUER 0, " 1" 
8020 let drapeaul=l LET drapeau 

2 *0 

8030 PRINT PAPER , AT i , J ; " " 

804-0 LET a * ( I +1 , j +1) ="1" 

30S0 RETURN 

S500 REM ***+**EFFACEMENT****»* 

8510 L ET drapeau 1=0: l ET drapeau 

2 = 1 



SS20 IF 


to -2 THEN PRINT 




FLASH 


OUER 0; "B" ; AT 


19,2; F 


RSH 1; O' 


•ER . "2" 




S530 LET 


a* t i +i , j +u =-© 


PRINT 



STEP 



PLOT 



RT 

S540 RETURN 

8999 PEM *** 

Q0O0 OUER_0 : 

9001 FOR i -0 TO 255 

i , 175 : DRAU 0,-128: NEXT i 
9005 PLOT 255.175: DRAU 0,-128 
9010 PLOT 63,175: DRAU , - 126 : P 
LOT 65,175: DRAU 0,-128 
9020 PLOT 127,175: DRAU 0,-128: 
PLOT 129,175: DRAU 0,-128 
9030 PLOT 191.175: DRAU 0,-128; 
PLOT 193 , 175 : DRAU O , - ISO 
■904-O FOR i =0 TO 126 STEP S: PLOT 

0,175-i : DRRU 255,0: NEXT i 
9050 PLOT 0,175-63: DRRU 255,0. 
PLOT 0,175-65: DRRU S55 , 
9070 INK O 

9060 GO SUB 9S00 : OUER 
909O DIM a$!16.32! 

9110 TOR i=l TO 18: L ET a S I 1 1 = ' - O 
000000000 0O0.OQU OO Z '- 10 B " ! O0 0000O00 " 

NEXT i 
9120 LET i =0 : LET J =0 : LET drs=0 
9130 LET fm=2: PRINT RT 13,2, "H 
No i r c i s sem«n t S A F f » c K a ge " ; TAB 2 
; "H Ef facement Ua Leu r s " .; TAB 
2; "B Memorisation 8 Re commence 

" ; TRB 2; 'H Sauvegarde" 

9135 PRINT AT 16 , 28 ; "OHBta" , RT 17 

, 28; ■■S33ES" 

914© LET drapeaul=0: LET drapeau 

2 = 1 

9150 PRINT RT 19,2, FLASH 1;"2"; 

AT 81,27; FLASH O; "M-->" 

91S5 OUER 1 

9160 RETURN 

9500 REM ***RFFICHAGE LETTRES*** 

9510 OUER 0: FOR F =6 TO 26: PRIN 

T RT 16,F;CHRS (f+91);AT 17 , f ; CM 

RS if +136) : NEXT F : OUER 1 

9520 RETURN 

37O0 REM *****PRESENTATION* ** ** 

9710 OUER 0: BORDER 1: PRPER 0: 

INK 6 : CLS 

9720 PRINT RT 1,11; FLRSH 1; PAP 

ER 2; INK 0; -CARACTERES" 

9730 PRINT '-" * Presentation (O 

1 ■*« - ftFCP . 1 , 4.3 

HEN GO TO 374. 

9760 IF INKEY*="N" OR INKEY«="n" 

THEN RETURN 
O770 PRINT '" Ce prograe»n»e est d 
cstine a vovsaidei dans le dess-i 
n de nouveauxcaracleres." 
9780 PRINT ' ' " Com p a rativenent 
au progamme de la K7 de demons ».r 
a t i on , i l ofFrela possibi lite de 
vitionner.a iaroit,8 ctrns au I 
ieu d'on;«t iidispose d'un g^a 
nd nombre d«co««andes." 
980O PRINT TLASH 1; AT 21 , 26; " S - - 
> " : ir INKEY »=■■ OR (INKEY« < >"S" 
AND INKEY*<>"S") THEN GO TO 980 


9810 CLS : PRINT RT 1 , 11; FLASH 
l; INK 0; PRPER 2; " CRR ACTERES " 
9820 PRINT '" Un menu est aFFic 

be en permanence. Uoici I'ex 

P li cationdescomman de s : '*. ■ 



9330 PRINT ",TAB 








984.0 PRINT ' ; TAB 




mode arfacenant 




9350 PRINT ' ; TA8 


3; "B Rffeclatio 






ettre" 




9660 PRINT -;TAB 


3; "EJ sauvegarde 


d ' une suite de" 








9S70 PRINT ';TAS 


3; "irtSjia Dep Lace 


ment du curse ur" 




9680 PRINT FLASH 


1; AT 21 , 28; "S— - 


>** : ir INKEY» = "" 


OR ( INKEY* < > "3" 


RND INKEYS < >"S" 


THEN GO TO 986 



9690 CLS PRINT RT 1,11; FLRSH 
9900 PRINT '';TRB 3,"H AFFiche I 
es vaUur; en"; TAB 5; "decimal de 
s lignes d'un"; TA8 Bi_" caractere" 
990S print • ; tab 3;"g] Recommence 

tout" 
9910 print -;trb 3, "B Passage en 
mode SCROLLi ng " , TAB 5; "ou revie 
nt en mode normal."; trb 5; "Le mo 
de SCROLLing permet de";TRB 5;"d 
epLacer tout left carat-"; TRB E; " 
teres af Mches a '. ' e c r an," ; TAB 5 
-ur BBBB. " 
" I L o 777? , par e 



l; AT 21 , 28; "S-- 

OR ( INKEY» < > "S" 

THEN OO TO 992 



appu 
99 15 PRINT TAB S 
xempie.u pos"';T 
e les recadrer." 
9920 PRINT FLASH 
> " IF INKEY**." ■■ 

AND INKEY* < > "s " 


9923 CLS PRINT RT 1,11; TLASH 
1; INK 0; PAPER 2; "CARRCTERES" 
9930 PRINT ";TflB 3;"B Permet de 
9940 print ,TAB 3 ; "B Charge une 

suite de letres"; TRB 3, "a parti 
r d 'une K7" 

9960 PRINT AT 17, 1; FLASH 1; PAP 
ER 1; INK 6; "Pressei -SPACE' pou 
r commencer" 

9955 PRINT AT 12,12; FLASH 1;"AT 
TENTION";AT 13,0, FLASH 0; "Ce Pf 
ogramme rnarche en minuscule" 
9960 IF INKEY* <>" " THEN GO TO 
960 _ 

9970 RETURN ■ 
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NOM: 

PRENOM: 

ADRESSE: ... 

REGLEMENT JOINT: 



a CHEQUE 



MATERIEL UTILISE : 
CONSOLE: . . . 
PERIPHERIOUES : 



DCCP 



ENSEIGNANTS, AVEZ-VOUS DE L'HUMOUR ? 



Non. ca n"est pas une plaisan- 


ment a la lecture (pour lire 


terie ; le programme HU- 


Hebdogiciel plus vite !) 


MOUR, de la serie jeux et Let- 


. . . Retour des calcula- 


tres. vous propose de tester 


trices pour les malheux el 


votre sens de I'humour... an- 


toujours une petite place 


glais bien entendu ! LISVITE 


pour les petits potins. 


est un exemple de program- 


Pierric GLAJEAN 


me permettant la miseen ceu- 




vre des principes d'entraine- 





EDUCATION ET 
INFORMATIQUE 



HUMOUR ANGLAIS 

Voulez-vous savoir si vous 
avez le sens de I'humour et a 
quel degre ? II vous suftit de 
(aire tourner le programme ci- 
•pres. Mais ce diagnostic ne 
peut etre obtenu que si vous 
possedez deja des connais- 
sances en anglais car votre 
tens de I'humour doit pourse 
manifester passer par des 
hlstoires droles racontees en 
langue anglaise. Ce program- 
me s'adresse done a ceux qui 
ne sont pas des debutants 
mais de niveau dit "interme- 
diaire" selon la terminologie 
utilisee en formation conti- 
nue. Le desir de vous rassurer 
•ur votre sens de i'humour 
jofnt a la perspective de rire 
un bon coup vous incitera 
certainement a faire I'effort 
de comprehension qui vous 
est demande et de ce fait. 
vous ferez tres probablement 
des prog res en anglais tout en 
vous amusant. C'est la le Ion- 
dement pedagogique du pro- 
gramme que nous vous pro- 
posons. 



La structure du programme 
choisi pour cela est celle d'un 
banal questionnaire a choix 
multiple. On connait leur suc- 
ces tant aupres de I'eleve que 
des enseignants et des au- 
teurs de programmes. Les 
Aleves y voient un moyen 
amusant d'apprendre, qui 
tient parfois du jeu des devi- 
nettes. les enseignants y 
trouvent un moyen commode 
pour effectuer le controle des 
COnnaissances sans avoir a 
consacrer un temps conside- 
rable a des corrections lon- 
gues et fastidieuses. Les in- 
formaticiens debutants y 
voient des programmes faci- 
!es a ecrire avec les instruc- 
tions elementaires de base 
Print, Input. If Then. C'est 
peut-etre pour toutes ces rat- 
ions qu'on trouve une telle 
profusion de programmes de 
QCM sur le marc'he, en parti- 
culier dans le domaine de 
I'EAO. Ce qui les distingue 
c'est le sujet Iraite, la presen- 
tation, la maniere dont on 
peut obtenir de I'aide. ie 
compte a rebours. etc... 
La principale originalile de 
notre QCM reside dans le 
contenu des items. On sail 
que chaque communaute cul- 
turelle possede dans son folk- 
lore un slock d'histoire droles 
que tout le monde se raconte. 
Nous avons selectionne une 
vlngtaine de ces histoires et 
nous avons bati notre pro- 
gramme autour. 
Quelques imperatifs d'ordre 
pedagogique et technique 
ont preside a ce choix. II taut 
•n effet qu'une histoire soit 
relativement facile a com- 
prendre par des etrangers. il 
taut egalement qu'elle soit 
•uffisamment courte pour ne 
pas charger I'ecran du moni- 
tor, etc... 

Chaque sequence de notre 
programme comporte done 
I'aftichage de cette courte 
histoire. mais il y manque la 
derniere phrase, ce que les 
specialist';:; appellent "la 
chute", qui produit imman- 
quablement un effet comi- 
que. Parcontre, ce petit texte 
est suivi de qualre proposi- 
tions susceptibles de donner 
a I'histoire une conclusion 
perfaitement logique. La chu- 
te se trouve parmi les quatre 
phrases et si vous avez le 
sens de I'humour vous devez 
trouver laquelle et I'indiquer. 
Nous avons prevu la possibili- 
ty de demander de I'aide : en 
pressant la touche 5 on ob- 
tient I'affichage pendant un 
court laps de temps decertai- 
nes indications susceptibles 
d'alder a la comprehension 
da I'histoire. 



Le principal probleme que 
Ton rencontre dans la realisa- 
tion d'un lei QCM est celui du 
choix de ce qu'on appelle les 
"distractors", e'est-a-dire. les 
phrases qui accompagnent ie 
texte uniquement pour ren- 
dre la detection a la bonne re- 
ponse difficile. Nous y avons 
apporte un soi particulier : 
nous avons fait en sorte que 
chaque "distractor" soit plau- 
sible et fasse reflechir. De ce 
fait, e'etait pour nous, peda- 
gogues, une occasion d'y in- 
troduire des tournures idio- 
matiques et des expressions 
a revenir en rapport avec le 
theme general de I'histoire. 
Ainsi, lejoueurenrichi son vo- 
cabulaire. Mais, cet enrichis- 
sement ne s'effectue pas uni- 
quement sur le plan quantita- 



ttf. L'eleve decouvre qu'un 
mot peut avoir pi usieurs sens, 
car plusieurs histoires droles 
reposent sur des mots a dou- 
ble sens ; cela on le sait, mais 
on I'oublie quand on apprend 
une langue etrangere. II est 
bon de rappeler qu'un mot 
prend un sens different sui- 
vant le contexte dans lequel il 
est employe. Prenons le mot 
anglais "change" par exem- 
ple, que Ton trouve dans I'his- 
toire que nous presentons 
dans la premiere sequence a 
propos de I'etat d'un malade 
qui a avale un gros billet de 
banque : le docteur veut sa- 
voir si son etat a evolue : I'in- 
firmiere lui repond : "There is 
no change" selon le cas on 
pourra comprendre "il n'y a 
pas eu devolution" ou "on n'a 
pas rendu la monnaie". C'est 
precisement I'interference de 
deux situations permettant la 
double interpretation d'un 
meme mot qui produit I'effet 
comique. Nous esperons que 
ces finesses n'echapperont 
pas aux utilisateurs de ce pro- 
gramme ou qu'ils les decou- 
vriront. De toutes facons, ils 
sont assures de rire un bon 
coup. 



I DATi 



id Mould von Ilka 

3.1 did not km 

1. BRANO=marque 



■ fL'tff pk'.v,f. 



790 ' DEBUT DE PART IE 
BOO CALL CLEAR :: COLL COLOR (3, 2,: 
.-: CALL C0LQR(G*4.S, 1):: NEXT G 
BIO CALL COL0RI13. lO. 10. 14.11.11 ) 
B20 CALL CLEAR :; PRINT "TEST 
OUR" ■■ FOR L=l TO 10 :: PRINT : 



• GOSUB I2SO • LIRE LES DATA 
) • EXEHPLE 

I CALL CLEAR :: PRINT "Vous c( 
1 INPUT NOM* ;-. CALL CLEAR :: 



-"S.STR4INDATA-! 



CALL COLOR it 



IF ITEMS .*> THEN 
«*■":: GOTO B30 



■ ar -iNOM*:- 



il faut fair": : "n" oub! I e; pas ENTER qumO 
930 INPUT A» :: I-O :: GOSUB 1420 :: BON-0 
940 FOR DEL-1 TO 300 :; NEXT DEL :: CALL CLEI 
950 PRINT "NB chaque foi ou* votrt ruponsi 



■SO PRINT " 2 si vt«n h'jvm pas tni 

'90 CALL KEYIO.K.Sli: JF S-O THEN 9' 

000 CALL CLEAR :: PRINT Vjvoyom 1 

GOTO 930 

OlO CALL CLEAR 

020 PRINT "inutile de taper co™ 

machine a ecrire.- :: INPUT A« 

03O CALL CLEAR :i PRINT "attention 

: CALL CLEAR 



i DENISE AMR0UCHE, ROGER DID1.JEAN SAHAL 



130 DIM PR»(4,I9)'a nodifler 31 vous ajoutei des data 


160 NDAT, 


*20 'nomere des data. Chaque data occupe 3 liqne- 






170 ' PAS DE VIRGULE A L'INTERIEUR D-UME DATA 


ISO DATA 








190 DATA 








200 DATA 


CHANGE= rendre la amniie -changement 






210 DATA 








220 DATA 






4. it was not so eipmilv* asi thought, 1 


230 DATA 


TO RELIEVE-v.soulager TO HURT-v. faire mal 


240 DATA 








230 DATA 








260 DATA 




270 DATA 








280 DATA 






4_a good meal at the restaurant, 2 


290 DATA 


no help needed here. reme»Der «i*pl y tha 






300 DATA 


teaeher-whei-e is the engl 1 shchannel ? 






310 DATA 


l.we never left hM# 2. i can't see It on 



320 DATA CHANNEL avec ■ajuscule-l a »anche. sini-Ci 
330 DATA a un took his old car to the garage ti 

340 DATA l.your plugs need changing 2. The filter 

330 DATA GARAGE -gar age PLUGS -bougii 



HAVE lsused »ltl 






inging 3. The engine ne 
C.P -vis plat 



370 DATA l.he sail 



390 DATA in the 
400 DATA Lit la. 



.SHEAR waRD=jur( 



420 I 



I DIh 



lai 



)!■> lighting, : 



mlri 



judqe-why did you park 
understand! there was a sign which sai d: . 
430 DATA 1. PARKING FREE . 2. PAR 

INS 4.PM«KING FREE BETWEEN MEALS, 

440 DATA FINC-aaende FINE-super 
450 DATA husband -why are you wearinga dre 
ught it this morning and on the label it s 
460 DATA 1.737. eotton;23* dacron 2.dri 



1ITED TQ 1 HOUR 3. FINE FOR I 



el a 



4S0 DATA custo 
490 DATA 1.1 n 



wife -well I t 
Shopkeeper -sur 









>49 THEN 1010 



FOR DEL-1 TO 20O : 



BOUCLE D-AFFICHAGE DES DUESTIONS 
II2E :i SCO-0 :: PA»0 :; R-NDATA-l 
NT1RND#R)*1 :: GOSUB 1420 :: PA»FA*I 
BONOl THEN 1100 
I J-I TO R-l :: FDR K- 1 TO * :: PR«{r:,, 



20 GOTO 1070 



CALL CLEAR :: PRINT NOM»:-voicl votre score "sSCOS 1 
PRINT :: PRINT :: PRINT "on peut done considerer i 
IF SC0>ITEMS».4 THEN 1190 

PRINT -vous n-avt-z pas du tout l«t s«o» de fhuwur 
lis" ■■ GOTO 12o0 
IF SCO>ITEMS*.B THEN 1210 



IF SCO>ITErTS»1.2 THEN 1230 
PRINT "vous aver de 1 'hufl>Ol 
IF SCO>ITEr!S< 



: GOTO 12faO 



■ ]■ humour- i: GOTO 12&0 

EN 1230 

en drole" :j GOTO 12*0 

: INPUT A1 



1 PRINT :: PRINT :: PRINT .- : PF 

I (LECTURE DES DATA 

1 RESTORE :: FOR I-O TO NDATA-1 II READ PR» 
IT 1 



,PR4(2.1I,PR«f3, I) 



300 : DECOR 

310 CALL CLEAR 
320 CALL HCHAR I 1, 1, 136.96) 
330 CALL HCHAR(4,1, 128,4401 
340 CALL HCHARI IB, 1, 136,2241 
330 RETURN 

360 rsAisie du choix 

370 CALL KEYIO.K.SIj: IF S-( 

380 IF K<33 THEN REP«-STR*lk 
390 IF K-53 THEN GOSUB 1330 
400 RETURN 

410 • AFFICHAGE D'UNE DUESTION 

420 GOSUB 1310 :: DISPLAY AT(2,1>:" 

PR«(I,I}:: DISPLAY AT ( 1 1 . 1 1 :PR» (2, I 

430 GOSUB 1370 

440 IF REP*-: JPR»(3, I ITHEN 1530 

430 • MELODIE POUR BONNE REPONSE -- 



-n 99/4A 



K<49 OR K>: 

GOSUB 1370 



470 CALL SOUND 

480 CALL SOUND 

490 CALL SOUND 

3O0 CALL SOUND 

310 CALL SOUND 



00,440.2) 
00,990,2) 

00,440.2) 

OO, 660.7) 
OO.BBO.2) 
: DISPLAY 



SC0-SCDt2 ; 



>elp 



330 GOSUB 1631 

340 RETURN 

3SO ! PROGRAMS POUR HELP 

360 DISPLAY AT 119, lll"l 

370 DISPLAY AT (19, 

3BO DISPLAY ATI20, l):PRt(4.1)i: FOR T-l TO 1600 i: NEXT T :: GOSUB 1600 n RETU 

390 ! DEMANDE Di: LA REPONSE 

600 DISPLAY ATM9, 1 ,.--.--.--.-- 

610 DISPLAY AT(19.1):"DEAR ~ i NDM* : " TAPE* LE NUMERO DE LA PHRASEOUt EST LA PLUS 
MARRANTE OU 3 SI VOUS VOULEZ OUELOUES EXPL1CAT IONS- 

620 RETURN 
630 DISPLAY ( 

640 • cohhentaire en cas d - e 

630 randomize ;: bar- int (rnd«3> ♦ 1 ;i on bar goto 1660, 1670. 16e 

660 display atu9,3>:" dear "i nort»l "vous manouej; d-humour du . 

: i GOTO 1 690 

670 DISPLAY AT!19,3):"i ah pauvre "tNOM»i"ce n'ost pas cela- i 
6B0 OISPLAY AT(l9.3H"t sorry my dear -INOM»i"it la not very f 
690 RETURN 



I RETURN 



.DE VOCABULA1RE- 
GOTO 1690 



truly. 2 

YDURS FAITHFULLY' 



ul* de fin de lettre 



T" "• °" 



680 DATA 3.SPAR1 »et incall* DRY CELL" pile Monder SHOCI -secousse BATTERY-voi* 



2. SLOW DOWN 



;. PROCEED HIT 



740 DATA TH1RTEEN-13 (chiffre qui port* -alheurl 




PETITS 



pOT\NS\ 



Un micro-ordinateur pour une 
micro-eco/e, voila qui semble 
naturel, non ? 

N.D.L.R. 

Directrice d'une 6cole a 2 
classes ! A la campagne ! 
"EPINAY LES VOVES" : con- 
naissez ? Mais passionnee 
d'informatique au point de 
faire part ie d'un club oil je me 
suis formee et d'acheter un 
VC 64 avec lecteur de dls- 
quettes. 

Mes eleves que je sens eux- 
momes passionn6s, ont, a 
mon avis, le droit a una forma- 
tion. Ma commune manque 
do moyons pour nous 6qui- 
por. J'en appelle done a COM- 



MODORE. Serait-il possible 
que Ton nous prdte un VC 64 
ou equivalent ? 
J'ai deja quelques beaux pro- 
grammes pedagogiques a 
ochanger et d'autres (dans 
ma teto) qui ne demandent 
qu'a etro r6alis6s. Nous se- 
ronstres reconnaissantsaqui 
voudra bien nous donner un 
petit coup de pouce. 
Nos enfants de la campagne 
sont. eux aussi, avides do 
connaitre et d'apprendre 
mais sont defavorlses par le 
manque de moyons culturels. 
Alors qui s'interesseraa eux ? 
Remerciements. 
M.J, MEISTER/Ecolo Primalre 



14 



LISVITE 

Vous avez pu decouvrir. la se- 
maine passee. le didactitiet 
ELMO d'entrainement a la 
lecture. 

Passons maintenant de la 
theorie a la pratique avec ce 
petit programme pour T07... 
Le but de ce programme n'est 
pas de (aire une demonstra- 
tion d'effets graphiques. il 
reste sobre sans negliger de 
profiter de quelques possibi- 
lity du T07 

Ce programme s'il est inspire 
d'ELMO, n'en est pas une 
contre-facon. car I'exerctce 
propose, a mi-chemin entre 
les series A et C. conserve la 
particularity d'arreter la liste 
qui defile a une vitesse en 
fonction du niveau d'entree et 
des reussites ou echecs pre- 
cedents. 



18 REM — - Itcturc r«pi« - 
20 H=8:RTf=" , 

38 RZhV n 

35 DIM Tt-N-.ELI' 26 - : 36,3 



Chaque enfant doit donner 
son nom au depart, ainsi que 
son niveau d'entree (de 1 a 
20). Ensuite, il (era une serie 
de 10 mots. II est important, et 
cette remarque est valable 
pour tout ce qui touche a la 
lecture, de donner un rythme 
soutenu a I'exercice, done 
presentation agreable mais 
pas de fioritures Ainsi done, 
le temps est diminue de 30 % 
en cas de reussite. augmente 
de 10 % en cas d'erreuret sta- 
tue-quo si le mot n'a pas ete 
vu. On parvient ainsi rapide- 
mentdu niveauleplusbas.en 
haut alors que le contraire 
n'est pas vrai. L'exercice est 
vraiment benefique a un ni- 
veau de vilesse assez rapide. 
Si vous tapez ce programme 
vous avez la possibility et 
vous I'aureza chaque fois que 
vous I'utiliserez, de codifier a 



parttr de la ligne 5000. les DA- 
TA et de constiluer ainsi votre 
liste de base sur laquelle vont 
travailler les enfants 
ATTENTION : La methode uti- 
lisee pour melanger aleatoi- 
rement la liste a chaque pas- 
sage est tres rapide mais re- 
serve une contrainte, elle ne 
lonctionne qu'avec un nom- 
bre de mots special (regie ge- 
nerate : tous les nombres qui 
precedent un nombre pre- 
mier, dans la pratique : 12, 16. 
IB. 22. 28, 30...) pas moins de 
10 non plus, vous pourriez at- 
tendre longtemps qu'il en ait 
trouve 10 differents a propo- 
ser ! 

Dans tous les cas. le premier 
DATA en 5000, donne le nom- 
bre de mots de la liste. 
Les resultats : sont conser- 
ves dans un fichier temporai- 
re. On peut consulter les re- 



48 


FOR 1=1 TO 


Hi READ 


TI 


I ■ : N 


W 


:i_S:SC*E£N 


4.2,6 






66 


httrb e. i 








7ft 


.OChTE 16, 


;:ppjn7 




KH 


hTTPB o.e 








"»B 


.OCftTE 6,8 


PR I KT* Qua 




92 


COLOP 1 
INPUT ELI' 








9A 


tr ELI'H.: 


I*" TH 


N 1 


NO 


17 


IF EL*(tU- 


*•- TH 




666 


<*H 


:olor 4 








166 


LOCATE 0. 


1:PP1N 


- 


on r. 


l«"i 


COLOP 1 








Ml 


INPUT Nh 








11? 


COLOP 4 








lit. 


IF hBS'NA 


-10.3»9.3 


THEN 


DSUB 3808= GOTO 106 






\?( 


P'H.9>*NA 


Tl-Set 


?1 




: ;U 


LOCATE 6. 


&:PPIHT"Ce jeu 


146 

ITS 


PRINT'Tu 


-egarae 


■ 


tent 


PP. I NT -To 
PRJNT"Tu 


tienala 


tuand 


1AB 




VII 


one 


17B 


PPINT"AuS 


sitot a,ue 


u le 



r "JJCOLOR 9.3:PPINT" ENTPEE ' 

335 COLOR 3.6 

340 GOSUB £606 

356 CLS 

366 LOCATE 15, 15: PP I NTLEFT *<PTf , 10) 

370 IC=INT<PND*N>*1 

3B5 FOR Y*«l TO 1O00:NEXT YXl L=!5: GOSUB 

3800 

396 LOCATE 15, 15 

430 PRINT T«<J> 

410 FOP V-; = TO Tit IF [NKEYir:— " THEN 49 

6 

415 NEXT 1% 

420 L=15:C0SUB 3866 

438 LOCATE 15, 15 

440 PRINT LEFTHPTi,LEN<T*<J>)> 

450 FOP Y^; = TO 166S1F INKEYtO"* THEN 4 



sultats de tous les eleves. en 

lapant (2 etoiles) a la de- 

mande du nom 
Vous obtiendrez une page par 
enfant, avec les mols source 
d'erreur ou d'oubli. 
A partir de quel age ? J'ai des 
enfants deCP (6 ans) qui I'uti- 
lisent... On peut se servir de 
ce programme jusqu'au CM2 
(ou plus), il faut varierla diffi- 
culty sur les mots proposes 
(cf comment constituer une 
liste). 

Pour arreter. il suffit de taper 
SS a la place du nom... 
Nous pouvons recopier le 
programme sur GOUPIL 2, 
(aire parvenir disquette et en- 
veloppe. retour par I'interme- 
diaire du journal qui trans- 
mettra. 

Philippe WUCHNER/ 
Frederic DONNETTE 



TO 7 



678 K»H 

6B0 GOSUB 1060 

690 H"H*l:GCT0 50 

1086 REM — RESULTATS V UN ENFAN 

1816 CLS:3CREEN 4,3,6 

1615 CONSOLE 3 

1826 PRINT TAB(5f;-Pesul tats de";Ti 



entree "JTASOB) 



: COLOR 
OCOTE 1 



a liste" 

186 L0CATEi3.£3tPRINT"Tape 

,3:PPINT- ENTPEE " 

198 GOSUB 2066 

2t*0 SCREEN 3.0,0:CLS:ATTBB 

, 1£:PPINT"PSTIENCE 

218 REfl Choi* 16 Bots 

226 M<:e> = INT<RM>*N> + l 

238 FOP 1*1 TO 9 

240 H'I)=IKT<PND»N>*1 

250 FOP J=0 TO 1-1 

260 IF M<I>««<J) THEN 240 

270 NEXT JiNEXT 1 

£66 FOP Y=l TO 5061NEXT Y: CLS: ATTRB 

285 REM — travail enfant — 

296 FOP 1=8 TO 9 

360 CLS:LOCATE 19,3,6 

316 PRINT-Re^arde bien ce »ot I" 

320 locate 15, 15:c0l0p 8,3:pr1nt" "; 
nci>>;" ■ 

336 LOCATE 15.23:C0L0P 3. 0: PR 1 NT ■ Tape 



455 NEXT YV. 

460 L=15:G0SUB 3800 

478 GOTO 568 

458 REM — VERIFICATION — - 

500 LOCATE 15.15:PPINT Tt(J) 

510 IF J=M(I) THEN 540 

528 R(H,2)=P(H,2>*i:TI=TI»l,l 

538 EP*i:H)=ER»<H-.'-T$(M<H)f»- 

535 LOCATE 6,18:PPINT-N0N.c'etait =>";:C 

OLOR 1,4:PRIKT* •; TI (IK I > >; " • 

537 COLOP 3.0: GOTO 636 

540 REM — MOT JUSTE — 

545 R(H,n=P<:H,l>*l:TI=TI»0.7 

558 LOCATE 11,28:ATTRB l,l:COL0R 1,£:PRI 

NT" BPAVO !-:ATTPB 0,0:COLOR 3,0:GOTO 63 



568 REM — SUITE --- 

565 J=J*IC 

578 IF J>N THEN J-J-N-l 

588 IF J>8 THEN 398 



NT'Tu n 

618 COLOR 1,4 

628 LOCATE 15,16:ATTR8 8,1:1 

<!)>;- ":C0LOR 3,8 

622 ATTRB 6,0 

625 ERICH>*ER*<H>'T*<M<I;;* 

636 L0CATE18,23=PRINT-Tane : 

,3:PRINT" ENTREE ' 

635 COLOR 3,6 

648 GOSUB 268e:CLS 

6S8 NEXT I 



;EL*' 

1838 PRINTiPRI 

1848 RRlNT"flot» r«cor.nui"|Tfl8t30>Jft(K, 

1050 PRINT"Pa» U us-;TAB<38J; le-RCK - ,!)-! 

K,2) 

1068 PRINT-Err«ur*-;TAB(38);R<K,2) 

1863 PRINTlPRINT>PPINT 

1078 PRINTlPftINT-Niv.au de sortie-; 

1668 COLOR l,2iATTRB 1,1 

1896 PRINT- '- "JP<K,3)I- > " 

1100 COLOR 4.31ATTRB 0,8 

11 18 IF R(K, 1^»18 THEN 1176 

1126 PPINTIPPINT-Errtur ou oubli sur : 

1136 COLOR 1 

1148 FOP 1-1 TO N 

1138 IF IHSTR<CR*<K}fTtCI>f*B")>6 THEN 

PINTTimj- - -J 

1168 NEXT I 

1163 PRINTiPRINT 

1176 L0CATE16,23lPPINT"T*p« sur"; :C0L01 

6,3:PPINT- ENTREE ' 

use gosub 2eee»icoNSOLE 6:return 

2888 REM -- ENTREE — 

2010 Al-"" 

2620 hCINKEYCIF AI= " " THEN 2626 

2030 IF ASC'.h*-'/I3 THEN 2626 ELSE PETl 

3660 REM --- ECITION RESULTATS — 

3810 FOP f-0 TO H-l 

3828 GOSUB 1806 

3030 NEXT Y 

3040 GOTO 58 

3S88 REM --- efface li9r,« --- 

3S18 LOCATE 8. L= PP1 NTSPC ■ 48 - 

3S28 RETURN 

5688 OATA IS 

3818 DATA poire»u, bateau. chateau. gates. 

5826 DATA c arreau, oar tcau, r i deau, coute 

5038 DATA radeau. c ade au. p 1 a teau. beau, b^ 



EDUCATION ET 
INFORMATIQUE 



MATHEMATIQUES AU DELA 
DE LA CALCULATRICE (suite) 



La calculatrice devrait intri- 
guer son utiiisateur : elle pro- 
pose peu de touches et pre- 
tend permettre de resoudre 
de nombreux problemes (si 
ce n'est tout les problemes !). 
II est pourtant rare qu'une 
personne s'etonne de cette 
pretention. II est done suppo- 
se que la majorite des proble- 
mes admettent une solution 
qui peut s'ecrire a I'aide des 
fonctions de base program- 
mees par le constructeur. 
Dans un premier temps, on 
pourrait utilisercette "accep- 
tation" pour eclairer les ele- 
ves sur la demarche que Ton 
doit suivre pour chercher la 
solution d'un probleme. 
Deux idees sont rarement ex- 
plicitees pendant le cours de 
mathematiques : 

- II faut rechercher parmi les 
outils que Ton connait, les 
moyens de construire la solu- 
tion. 

- II faut construire des outils 
plus puissants et les connaT- 
tre. 

On peut remplacer ces deux 
phrases par : 

- II faut utiliserles touchesde 
la calculatrice. 

- II faut etudier des sequen- 
ces de touches... 

Des exercices simples peu- 
vent etre proposes et susciter 
une aciivite mathematique 
fructueuse (done loin de la 
calculatrice !). 
Exemple : 

Comment peut-on passer de 
2 a 5 a I'aide de la touche +. a 
l-aide de la touche x, de la 
touche etc... (et d'un 
nombre !), a I'aide de la tou- 
che SIN. COS. ENX etc... puis. 
Comment peut-on passer de 
25 a 12 a I'aide de sequences 
de calculs utilisant deux tou- 
ches et un nombre, deux tou- 
ches et deux nombres... ou 
encore. 

Rechercher une meme se- 
quence de calculs permet- 
tant de passer de 8 a 15, de 13 
a 17 et de 14 a 20 et utilisant 
(+x) ou (x ) ou (x lux)... et 
des nombres. 



Ces differentes recherchss 
peuvent ouvrir la voie a des 
reflexions amenant a clari(i«f 
('attitude de l'eleve face aux 
mathematiques. Les objectift 
sont precises et les met hode« 
sont attendues. 
II pourrait etre interessant. 
par exemple, de classer Iss 
differentes sequences sui- 
vant la nature des touches mi- 
sesenosuvre : +. x, -. + et x.x 
et ■*-, + et - + et SIN, etc... 
L'etude de ces sequences 
ainsi que la determination 
des parametres apparaissent 
comme necessaires. 
L'eleve percoit (ou apercoit) 
revolution du cours et I'ob- 
jectif poursuivi. 
Exemple de progression : 
Premiere etape : Peut-on 
passer de 8 a 15 et de 13 a 17 
en utilisant une multiplication 
suivie d'une addition ? 
Recherche individuelle non 
organisee. 

Deuxieme etape : resoudre le 
systeme 8a + b - 15 ; 13a + b 
- 17. 

L'expression est amelioree. 
des methodes sont propo- 
sees et etudiees. ou bien de- 
terminer une fonction atfine F 
telle que f{8)-15 et f(13)-17. 
On trouve a-0.4 et b-11.8. 
Ainsi, la sequence x 0.4 + 11.8 
repond a la question. 
Troisieme etape : Peut-on af- 
firmerque cette sequence, ou 
cette solution, ou cette fonc- 
tion affine, est unique 7 Ou 
bien. trouver d'autres cou- 
ples (x.y) tels que la meme se- 
quence puisse faire passerde 
xay. 

Ou tels que : x x0.4 + 11,8 -y 
Ou tels que f(x) - y. 
Classer ces couples, les re- 
presenter, etc... 
Quatrieme etape : De (aeon 
plus generate, comment 
peut-on representer la famille 
de toutes les sequences dele 
forme X a + b (ou a et b sont 
des nombres reels). 
Des que le sujet est epuisi. 
on choisit une nouvelle se- 
quence... 

R. CHOI 



Suite de la page 4 



- 




611 XOY 


653 1.2 


695 RCL 89 


737 XEO 37 


779 PROBPT 


821 RVIEH 


863 27 


k k 


up 41 


612 RTH 


654 X<=Y'' 


6% / 


738 188 


788«L8L 26 


822 PSE 


864 26 


\MS 


613»L8L 68 


655 CTO 93 


697 2 


739 » 


781 RCL 89 


823 RTH 


865 XOY 


^9r 


r«* 


614 5 


656*LBL 74 


698 X<=Y? 


748 RCL 24 


782 X(=«? 


824«LBL 89 


866 X=Y' 






615 XEQ 37 


657 RCL 28 


699 GTO 83 


741 - 


783 GTO 85 


825 "PIECE CRLhE- 


867 28 


537 STO 83 


574 FC? 83 


616 » 


658 X<8? 


789 RCL 85 


742 X<=9' 


784 RCL 88 


826 RVIEH 


868 XEQ HID X 


538 RTH 


575 4.9 


617 XEO 37 


659 CTO 82 


781 X*8? 


743 XEO 16 


785 X<=Y1 


827 PSE 


869 RVIEH 


539»L6L 82 


576 FS? 83 


618 » 


668 GTO 81 


792 GTO 95 


744 XEO 26 


786 STO 89 


828 CTO 86 


878 RSTO 12 


M8 "BVflNCEE- 


577 2 


619 LRSTX 


66I*L8L 71 


783*LBL 81 


745 -«VICT0IRE«- 


787 "VITRLITE :■ 


829 RTH 


871 RSHF 


5<1 RVIEH 


578 » 


628 » 


662 XEO 75 


'794 I 


746 RVIEH 


788 RRCL 89 


83B«LBL 16 


872 RSTO 11 


542 -16 


579 RCL 88 


621 1 


663 RCL 19 


785 RTH 


747 BEEP 


789 RVIEH 


831 -TRESOR- 


873 XEQ G 


543 GTO 87 


588 RCL 89 


622 * 


664 / 


786*LBL 82 


748 PSE 


798 TOHE 9 


832 RVIEH 


874 RTH 


544«LBL 84 


581 - 


623 RTH 


665 7POS 


787 2 


749 "SCORE: ■ 


791 PSE 


833 8EEP 


875.LBL 17 


545 -RECUL- 


582 "flPPOPT • 


624*L8L 78 


666 XEO 75 


788 RTH 


759 RCL 89 


792 -ENCORE ■ 


834 PSE 


876 -SQUELETTE- 


546 MI Ell 


583 X>Y? 


625 4 


667 RCL 19 


789*LBL 83 


751 RCL 25 


793 16 


835 XEO 37 


877 RTH 


547 12 


584 XOY 


626 RCL 89 


668 / 


718 3 


752 » 


794 RCL 22 


836 18 


878.LBL IB 


548»L8L 87 


585 08S 


627 X>Y? 


669 - 


711 RTH 


753 RCL 67 


795 - 


837 » 


879 -VRHPIRE- 


549 RCL 89 


586 RND 


628 GTO 73 


678 7POS 


712*LBL 84 


754 RCL 86 


796 FIX 8 


838 78 


888 RTH 


558 XE6 37 


587 ST* 89 


629 RCL 28 


671 X>9? 


713 4 


755 RCL 85 


797 RRCL X 


839 y. 


881*LBL 19 


551 • 


588 RCL 99 


638 2 


672 GTO 81 


714 RTH 


756 * 


798 FIX 1 


848 RBS 


882 -FRNTOHE- 


552 RCL 85 


589 RCL 88 


631 X<=Y' 


673 RCL 28 


715*LBL 85 


757 * 


799 •> PIECES- 


841 ST* 25 


883 RTH 


553 t 


598 X<=Y' 


632 GTO 93 


674 1 


716 5 


758 + 


899 RVIEH 


842 -VRLEUR: ■ 


884*LBL 27 


554 XOY 


591 STO 89 


633 RCL 94 


675 X<=Y' 


717 RTH 


759 IHT 


891 PSE 


843 RRCL X 


885 -DRRGOH- 


555 / 


592 RRCL Z 


634 RCL 95 


676 CTO 72 


718*LBL 75 


768 FIX 8 


892 FC?C 18 


844 RVIEH 


886 RTH 


556 ST* 28 


593 RVIEH 


635 6 


677 RCL 85 


719 SF 93 


761 RRCL X 


883 RTH 


845 PSE 


887*LBL 21 


557 RCL 28 


594 PSE 


636 / 


678 X=8? 


728 RCL 89 


762 RVIEH 


884 -FORCE: ■ 


846 FIX 1 


888 -N0HIE- 


558 RND 


595 -RESTE ■ 


637 X>Y? 


679 GTO 81 


721 SORT 


763 BEEP 


885 RRCL 97 


847 RTH 


889 RTH 


559 X<8? 


596 PRCL 89 


638 GTO 84 


688 RCL 98 


722 RCL 87 


764 BEEP 


886 RVIEH 


848*LBL I 


898»L8L 22 


568 CLX 


597 RTH 


639 GTO 83 


681 RCL 89 


723 * 


765 PSE 


897 PSE 


849 -RH...C EST I' 


891 -SORCIER- 


561 STO 28 


598»L8L 58 


648»LBL 73 


682 / 


724 RCL 28 


766 -BRRVO- 


888 -RESISTANCE 


858 RVIEH 


892 RTH 


562»L8L 88 


599 CF 93 


641 FS? 92 


683 4 


725 1 


767 RVIEH 


889 RCL 86 


851 PSE 


893»LBL 23 


563 -ECPRT: • 


688 "R TOI- 


642 GTO 71 


684 X(=Y' 


726 * 


768 BEEP 


819 RBS 


852 I 


894 -LOOP-CRROU 


564 2 


691 RVIEH 


643 XEQ 75 


685 GTO 83 


727 / 


769 BEEP 


811 STO 86 


853 ST* 21 


895 RTH 


565 / 


682 CF 22 


644 X>9? 


686 GTO 81 


728 RCL 13 


778 PSE 


812 RRCL X 


854 RCL 21 


896*L8L 24 


566 BRCL X 


683 XOY 


645 CTO 91 


687*LBL 72 


729 - 


771 BEEP 


813 RVIEH 


855 18 


897 -DEMON- 


567 RTH 


684*LBL 51 


646 RCL 84 


688 RCL 18 


738 2 


772 BEEP 


814 PSE 


856 BOB 


898 RTH 


568.L8L 83 


685 PSE 


647 5 


689 RCL 19 


731 / 


773 BEEP 


815 -VITESSE: • 


857 IHT 


899«LBL 25 


569 -REPOS- 


686 FC?C 22 


648 X>V 


699 / 


732 RCL 16 


774 -THE EHD- 


816 RRCL 85 


858 17 


988 "OGRE" 


578 RVIEH 


687 GTO 51 


649 GTO 74 


691 4 


733 - 


775 FIX 9 


817 RVIEH 


859 » 


981 RTH 


571 RCL 84 


688 5 


659 RCL 98 


692 X<=Y' 


734 RTH 


776 SF 29 


818 PSE 


868 28 


982.LBL 28 


572 XEO 37 


699 X<Y? 


651 RCL 99 


693 GTO 82 


735*LBL 31 


777 CF 81 


819 -OR: " 


861 XOY 


983 -CEHTRURE" 


573 • 


618 CTO 58 


652 / 


694 RCL 83 


736 XEO 16 


778 CF 82 


828 RRCL 25 


862 X=Y? 


994 EHD 



COURBE 



Avis aux 6leves de toute classe. Vous pouvez avoir la re- 
presentation graphique d'une fonction mathematique 
avant de commencer son etude grace a ce programme 
toumant sur APPLE II, mais dont le principe peut etre 
transpose sur tout autre ordinateur pour peu qu'ii posse- 
de des possibilites graphiques. 

Guy MUNEROL 



Mod© d'emploi : 

Toutes les explications sont incluses dans le programme. 
Quolques precisions : 

- sdaptes des parametres de I'imprimante a votre propre systeme (!e 
programme marche tout aussi bien sans cette option) ligne 5200 a 
6330. 

-Vous n'etes pas oblige d'entrer la majorite des parametres. ils sont 
cMflnispardetaut : 

- couleur : lond noir, courbe blanche repere blanc 

- position de repere au milieu de I'ecran 

- Les explications sont precises pour peu que I'utilisateur ne soil pas 
obligatoirementun fervent du Basic (on sort a certains moment du con- 
trol* du programme), et peuvent etre supprimes. 



APPLE H 



REM BOUCLE 1 
REM .......... 



HO GOSUB K'OO: REM EXPLICATION 
120 GOSUB 2000: REM [NI TALIS. 

130 REM 300O JPARAMETRES 

140 REN 4000 >TRACE 

ISO GOSUB 5000: REM FIN? 
2O0 < 
2©l i 

1000 REM .................... 

1001 i 

1 002 REM E XPL I CAT I pN 

1003 i 

1004 REM .................... 

1005 : 

1006 ■ 

1010 TEXT : HOME 

102O HTAB 9: VTAB B: INVERSE : PRINT 

1030 HTAB 9: PRINT "• TRACEUR DE 

COURBES •" 
104O MTAB 9: PRINT "..........»• 

»•*•»»••..■■; NORMAL 
1030 PRINT 
1O60 PRINT " PAR GUY MUNER 

OL (C) 1984 " 
1070 PRINT : PRINT : PRINT : PRINT 

I PRINT "' DES EXPLICATIO 

NS 7 "!: INVERSE : PRINT '•■O 

*OU'N - ": NORMAL 
I0BO VTAB 19: HTAB 20: GET R*: PRINT 

R* 
1090 IF R« = "N" OR R» = CHR* ( 

13) THEN RETURN 
llOO IF R« : "D" THEN 10B0 
1110 HOME : INVERSE : PRINT " 
COURBES 
*' : NORMAL 
HIS PRINT : F'RINT : PRINT : PRINT 

1120 PRINT " CE PROGRAMME EST C 

ONCU POUR TRACER LA" 
1130 PRINT -REPRESENTATION GRAPH 

I DUE DE N" IMPORTE" 
1140 PRINT "QUELLE FONCTION." 
1150 PRINT : PRINT " POUR CELA, 
JE VOUS DEMANDERAI UN CERT- 

1160 PRINT "AIN NOMBRE DE FARAME 

TRES EN PLUS DE L* " 
11BO PRINT "EOUATION DE LA FONCT 

ION. " 
1190 PRINT : PRINT - IL VOUS FA 

UDRA ADMETTRE PLUSIEURS REG- 

-t: PRINT "LES." 
1210 PRINT : PRINT : PRINT : PRINT 

t PRINT : PRINT : INVERSE : PRINT 

"APPUYEZ SUR UNE TOUCME S.V. 

P. "i: GET ft*: NORMAL 
1220 HOME 
1230 INVERSE : PRINT "uDHMrNT E 

CRIRE LA FUNCTION ?" 
1240 NORMAL : PRINT : PRINT 
I2SO PRINT "OUAND APPARAITRA LE 

SiYMBOLE '5-, TAPEZ" 
1260 PRINT "LA FONCI ION AINSI : " 

1270 I PRINT 

12B0 PRINT " 54100 Y=F!X>" 

1290 PRINT : PRINT "OU F(X) SERA 

VOTRE FONCTION." 
1300 PRINT : PRINT : INVERSE : HTAB 

3: PRINT "• EXEMPLES:" 
1310 NORMAL : PRINT : PRINT " 

■4100 v=3»x*l" 
1320 PRINT " 44100 Y-TANI 

(3»X*1 )/(X*SIN(X> > 
1323 PRINT : PRINT " 

1330 PRINT : PRINT : PRINT : PRINT 

-PUIS TAPEZ -RUN 3000*." 
1340 PRINT : INVERSE : PRINT "AP 

PUYE2 SUR UNE TUUCHE S.V. P." 

■■ GET R»: NORMAL 
1330 HOME 
13*0 INVERSE : PRINT "-LISTE DES 

FONCT I ONS" : NORMAL 
1370 PRINT 
I3BO PRINT " A ENTREft 

REPRESENTE" 
1390 PRINT " 

14O0 PRINT " SIN S- 

1NUS1EN RADIAN) " 
1410 PRINT " CDS C 

OSINUS" 
1 420 PRINT " TAN 

AHQENTE" 
1430 PRINT " ATN I 

RC TANGCNTE' 





Al ill EN 


IERE" 














Al 1 Uf -.F-SOLUE" 






FLINT '• 






















EKMR 1 niMh 


NEPERIEN" 














>l 0MEN1 IELLE (B = EJ " 






PRINT : 


INVERSE 






PRINT "- 


OPEF.ATELTRS 




NORMAL 


: PRINT ' 


I DANS L"ORDRE 




CUT ION) " 










-PINT " ( 


FT 










PRINT " 








IM .:',M[lf.F 
















ULT. ET E 


1VISI0N" 















DD. ET SOUSTR. " 

• VTAB 22: INVERSE : PRINT 
PPUYEZ SUR UNE TDUCHE S.V 
"i t GET R»: NORMAL 

• HOME : INVERSE 

i PRINT "-REGLES DE PRU 



TE" 



580 NORMAL 

390. PRINT : PRINT "CE SUNT LES 

MECeS OU'EN ALDEBRE." 
6O0 PRINT : INVERSE : HTAB 3: PRINT 

"• SAUFi ": NORMAL 
610 : PRINT : PRINT "UNE FCNCTIO 

N DOIT ETRE SUIVI D"UNE OU" 
620 PRINT "PLUSIEURS PARENTHESE 

S." 
630 PRINT : INVERSE : HTAB 5: PRINT 

"> EXEMPLES:": NORMAL 
640 PRINT : PRINT " 54100 Y 

=SIN X >FAUX" 

650 PRINT " S4100 Y=TAN((X* 

3>/X> >EXACT" 

660 VTAB 22: INVERSE : PRINT "A 

PPUYEZ SUR UNE TOUCHE S.V. P. 

";: NORMAL 
670 GET R» 
690 HOME : INVERSE : PRINT "-0U 

ELS PARAMETRES ?" 
695 PRINT i HTAB 3: PRINT "• L - 

ORIGINE DU REPERE:": PRINT 
700 NORMAL : PRINT : PRINT "DAN 

S UN 1ER TEMPS, JE VDUS DEMAN 

DERAI LES"t 
710 PRINT "COORDONNEES DANS L'E 

CRAN DE L'ORIGINE" 
720 PRINT "DU REPERE." 
730 PRINT "CETTE ECRAN EST COMP 

OSE DE 192 LIGNES" 
740 PRINT "DE 2B0 POINTS NUMERO 

TES TOUS DEUX A PAR-"! 
750 PRINT "TIR DE ZERO. " 
760 PRINT "L'ORIGINE DE CETTE N 

UMERDTATION SE TRDU-"; 
770 PRINT "VE DANS LE COIN SUPE 

RIEUR GAUCHE. " 
7B0 PRINT : PRINT " X VARIE DE 

1 A 278 ET Y DE 1 A 190" 
790 PRINT : INVERSE : HTAB 3: PRINT 

"• LES ECHELLES: " 
BOO NORMAL : PRINT : PRINT "ELL 

ES REPRESENTERONT LE NDMBRE 

DE POINTS"; 
810 PRINT "ENTRE DEUX UNITES." 
S20 PRINT : PRINT : PRINT : INVERSE 

: PRINT "APPUYEZ SUR UNE TOU 

CHE S.V.P."i: GET ft*: NORMAL 

FJ30 HOME 

840 HTAB 3: INVERSE : PRINT "• 

L' INCREMENT :": NORMAL 
B50 PRINT : PRINT "C"EST LA VAL 

EUR DUE L'ON AJOUTE A X POUR 

B60 PRINT "AVUIR LES VALEURS SU 

CCESSIVES DE Y. " 
665 PR I NT 
870 PRINT "PLUS L' INCREMENT EST 

PETIT, PLUS LA COU-"! 
8B0 PRINT "REE EST TRACEE LENTE 

MENT MAIS PLUS ELLE" 
890 PRINT "EST EXACT." 
900 PRINT : PRINT "CETTE INCREM 

ENT VARIE EN FONCTION DE L r " 

910 PRINT "ECHELLE DES X CHDISI 



920 PRINT "PLUS L'ECHELLE EST G 
RANDE PLUS L'INCRE-": PRINT 
"MENT DOIT ETRE PETIT. ET VIC 
E VERSA. " 

930 PRINT : INVERSE : HTAB 5: PRIN 



PRINT : PRINT " 
ECHELLE DES X — > IO": PRINT 
CONTINUITE — >O.OS 
(CORRECT) 
i VTAB 21: INVERSE : PRINT "A 

PPUYEZ SUR UNE TOUCHE S.V. P. 

":: NORMAL : GET R»: PRINT R 

< 
. HOME : INVERSE : HTAB 3: PRINT 

"• LA CONTINUITE :": NORMAL 

: PRINT : PRINT "SI VOTRE FO 

NCTION EST CONTINUE SUR SON" 

: PRINT "DUMAINE DE DEFINITI 

ON. ENTREZ 'O - ": 
' PRINT 
i PRINT "SINON TAPEZ 'N -M : PRINT 

: PRINT "CELA EVITERA DE FAU 

SSER LA CGURBE EN": PRINT "R 

ELIANT LES SEGMENTS." 
I INVERSE 
i PRINT : PRINT : PRINT "TAPE 

Z -'RETURN:- POUR CONTINUER": NORMAL 
PRINT ; PRINT "AUTRE TOUCHE 

R REVENIR AU DEBUT- "!: GET 

R«: PRINT R* 
) IF ft* - CHR* (13) THEN RETURN 



1990 
2000 
2001 


GOTO 


1110 






2002 


REM 


INITIALISATION 


2003 
2O04 
2005 






, 




2006 






2020 


HGR2 




2O40 


HOME 


: TEXT i HOME 


2050 


GOTO 




3O00 






3001 

3O02 


' 








3006 

T.O'-n 

3O09 


REM 


PARAMETRE5 


80 - f 


i GOSUB 7O00: GOSUFJ 00 




20 




3010 


HOME 


i HTAB 10: INVERSE i PRINT 




'•- OR 


SINE DU REPERE -" 


3020 


NORMAL 


3025 


HTAB 


3i VTAB 4 



INPUT ".k< i .. t • ■ . 
■ i i 
■■ S II F-i "» THEN '" ■ 1 ■■ 
■ ■ 

L IR») 

II 10 ml to I Tirt.N 

PRINT I mi. i |7J, BOTD 023 
SO60 VTAB 61 MTAB :: INPIfl "OPt'O 
NM t tl A 1901- "Itt* 

3065 IF R* - "" THEN tO * 90) GOIll 

J070 fO • VAL 'R») 

S060 if vo i9o OR <o i mrii 

PRINT CHR» <7»: G01U (060 
3090 BO = 1: GOSUB TOOO 
3100 HOME 
3110 HTAB 15: INVERSE : PRINT "- 

ECHELLES -" 
3120 NORMAL 
SI30 VTAB 6: HTAB 3: INPUT "ECHE 

LLE DES X -■ ":*» 
1140 Lt ■ INT ( VAL <R4)>: IF EX 
■ '.- OF.' EX » 500 THEN 

; 1 30 

3130 VTAB 8: HTAB 3: INPUT "ECHE 

LLE DES y - "iRl 
SIM M - INT I VAL (R»>1: IF EY 
'. - O OR EY - 500 THEN 

3150 
3170 SOBUB B070 
3200 HOME 

3210 MTAB lb: INVERSE : PRINT "- 
CONTINUITE -" 
NORMAL 
3230 VTAB 6: HTAB Z: INPUT "INCR 

EMENI -,-;r* 
3240 C ' VAL (R«>: IF C ■; = O THEN 

3230 
Z2*2 VTAB B: HTAB 3: PRINT "CDNT 

INUE (0/N)-,"i: GET R»: PRINT 

R»; IF R» ■: "O" AND R* < 

"N" THEN 3242 
3245 IF R» ■ "N" THEN W = 1: GOTO 

3250 
324B M ■ 

3250 BO = 2: GOSUB 70O0 
3255 GOTO 4000 

3260 HOME 

3270 HTAB 15: INVERSE : PRINT "- 

FONCTION -": NORMAL 
3280 PRINT : PRINT "EN FACE DU ■ 

S'.ECRIVEZ LA FONCTION" 
3290 PRINT : PRINT "AINSI:": PRINT 

: PRINT " 54100 Y= 

■3300 PRINT : PRINT " SRUN 300 

3305 PRINT " SRUN 30J0 (N'EFF 

ACE PAS LE REPERE) " 
3310 PRINT : PRINT "VOUS POUVEZ 

A TOUT INSTANT INTERROMPRE" 
3320 PRINT "LE TRACE DE LA COURB 

E EN APPU/ANT SUR LA"; 
3330 PRINT "BARRE 0" ESPACEMENT. " 

3340 PRINT : PRINT : PRINT : END 

4000 : 

4001 : 

4002 REM ...........*........* 

4003 : 

4004 REM TRACE COURBE 
4003 : 

4006 REM ..............##..... 

4007 : 
4Q0B ; 

4009 ONERR GOTO 600O 

4010 POKE 49237,0: POKE 49234.0: 
POKE 49239,0: POKE 49232,0 

4015 HC0LOR= CC 
4020 X - - XO / EX 
4030 X = X - C 

4100 Y = 

4110 KK = PEEK (49152): IF KK - 

160 THEN 5000 
4120 A - X * EX + XO 
4130 B = - Y < EY - YO 
4132 IF M • I THEN 4140 
4135 IF Z = 1 THEN HPLOT TO A, 

B: GOTO 4O30 
4140 HPLOT A,B:Z ■= 1 
4150 GOTO 4030 

5000 : 

5001 : 

5002 REM »*•##*#•»»»»••»•»»*»• 
3003 : 

5004 REM FIN TRACE 

5005 : 

5006 REM ••*#•#*•*# ........... 

3007 : 

3010 TEXT : HOME 

3020 HTAB 15: INVERSE : PRINT "- 

MENU -": NORMAL 
5030 PRINT : PRINT : PRINT 
3040 PRINT CHR* (91):"ll MEM 

E COURBE. AUTRES PARAMETRES": 
PRINT 
5050 PRINT CHR* (91 ) ( "25 . , . . AUT 

RE COURBE": PRINT 
5060 PRINT CHR* (91)i"3S SOR 

TIE IMPRIMANTE": PRINT 
5080 PRINT CHR* (91>!"4S FIN 

": PRINT 
3090 VTA1> 20: INVERSE : PRINT "V 

OTRE OPTION ->"l: GET ft* 
5092 NORMAL 
5095 PRINT R* 
5100 ft - VAL (R«): IF R •' 1 OR R 

> 3 GOTO 5090 
5110 ON R OOTO 3700,3550,5200,53 

00 
5200 HOME :D* = CHR* (4):I» - CHR* 

5210 HTAB IO: INVERSE : PRINT "- 
SORTIE IMPRIMANTE-": NORMAL 

5220 VTAB 4i PRINT "(S)IMPLE DU 
<D)OUBLE LARGEUR-;";: GET R» 
: PRINT R* 
3230 IF R» - "S" THEN T - 
5240 IF R* - "D" THEN 1=8 
3243 IF R* - CHR* (13) THEN 300 

5230 IF R» < "S" AND R* ' 

"D" THEN 3220 
3260 H ■ 133 + 1 
5270 HOME : PRINT "METTEZ EN MAR 

CHE VOTRE IMPRIMANTE..." 
5280 PRINT I PRINT "SI FAIT APPU 

YER SUR UNE TOUCHE- >"t J BET 

3290 PRINT R* 

3300 PRINT D»t"PR»l" 

:. HO PRINT HINI-H" 

5320 PRINT D^-FRltO" 

I tO BOTO 3000 

5500 HOME : END 

3350 0(110 2OS0 

5700 RUN JOOO 

6000 i 

6001 : 

i,' "'-.: RCH ....•..-•••■•••*••••* 

6003 l 

60i>4 REM TRADIIMI NT HI liftl HI,:. 

6003 I 

6W6 REM ••••••••••••••••••••• 



lb (HFN (VOID 



1 149153 ■ 160 r» flI , 

l SOTO 4 

• TEXT .- HOME 1 PRINT "VOUS A 

VE/ fait Hi* ERRCUn E" rARAN 

T" 
i PRIN1 ■VOTRE F'.r-.i ■ ■ 
I PRINT "RECAPDFZ LE NOMBPE D 

C PARENTHESES, . . " 
i PRINT "RETAPEZ "4100 Y- 

- - PUIS RUN 30O0. " 



6540 


PRINT ! LIST 41O0: END 






IF FEE! (49152) = 16'- 
5000 


HEN 


6610 


GOTO 6600 




7000 






7001 


! 




7003 






7004 


REM MENU DE5 COULEURS 




7005 


're 




7007 






7O0B 






7010 


•fOME - : HTAf- 15 INVERTS 






'- COULEURS -": NORMAL : 






: PRINT 




7015 


HTAB 12 




7020 


PRINT ;hr» (91);-0S... 
.NOIR" 




7030 


HTAB 12 




7040 


PRINT CHR* (9I);»1S... 
. OCRE" 




7050 


HTAB 12 




7060 


PRINT CHR* (91)|"2t... 

-BLEU" 




7070 


HTAB 12 












. BLANC" 




7O90 


HTAB 12 












.NOIR" 




7110 


HTAB 12 




7120 


PRINT CHR* E91>I"5I... 

.VERT" 




7130 


HTAB 12 




7140 


PRINT CHR* (91Ji"6S... 

. ROUGE " 




7130 


HTAB 12 












.BLANC" 




7170 


IF BO < > THEN 7200 




71H0 


VTAB 18: INPUT "COULEUR 
FOND ->";R* 


DU 


7185 


IF R* - "'• THEN CF - Ot 


RETURN 


7187 


CH ■ ] 




7190 


CF = INT ( VAL (R»))s IF CF 




< DR CF > 7 THEN 71 BO 




7195 


RETURN 




7200 


IF BO < > 1 THEN 73O0 




7210 


vtab 18: input "couleur 
repere->";r» 


DU 


7213 


IF CH - 1 THEN 7230 




7220 


IF R* « »« THEN CR - 3: 


RETURN 


7230 


CR - INT C VAL <R*>)1 IF CR 




< OR CR > 7 THEN 7210 




7240 


IF CF - CR OR (CF - AND C 




R - 4) OR (CF - 4 AND CR 






) OR (CR = 3 AND CF - 7) 


OR 




(CR - 7 AND CF - 3) THEN 


721 








7250 


RETURN 




7300 
7305 


VTAB IB: INPUT "COULEUR 
LA COURBE ->"1R* 

IF CH » 1 THEN CH - O: 
7320 


DE 


7310 


IF R» - ■■" THEN CC - 3i 


RETURN 



IF CF » CC OR (CF - O AND C 
C - 41 OR (CF * 4 AND CC - O 
) OR (CC - 3 AND CF - 7) OR 
<CC => 7 AND CF - 3) THEN 721 



7340 


RETURN 


8000 




BOOl 

8002 
8003 




: 


BOO 4 


REM TRACES PREL IMINAIRES 


8005 
B006 

BOOB 






8010 


REM FOND 


BOI 1 




8020 


HCDLOft- CF: HPLOT Q.Ol CALL 




- 30B2 


8030 


RETURN 


804O 






REM AXES 






S07O 


HCOLOR- CR 


8O80 


XI - X0:X2 - XO 


B09O 


HPLOT XO.O TO XD. 191: HPLOT 




0. YO TO 279, YD 


BlOO 




81 IO 


IF XI 279 THEN HPLOT XI, 




YO - I TO XI, ¥0 + I 


8120 


IF X2 > THEN HFl.DT X2,Y0 




- 1 TO X2,Y0 » 1 


8130 


If f.\ • 2/9 OR X2 THEN 




3 1 00 


8140 


Yl - Y0:Y2 - YD 


0150 


Yl = Yl * EY: Y2 - V2 - EY 


8I6D 


IF Yl ■ 191 THEN HPLOT XO - 




l.YI TO XO * 1, Yl 


8170 


IF Y.2 > THEN HPLOT XO - 




1,Y2 TO XO * 1. Y2 


01 BO 


IF Yl ■; 191 OR V2 > O THEN 




3150 


8190 


RE TURN 




ANNUAIRE 



T07 + 16K, imprimante en option 

Le 107 n'est pas reserve, comme certains le pen- 
sent, a des usages educates. Ce programme en est 
une Hit \traticn parfaite. . permet la gestion d'un 
carnet d'adreuses sur cassette. II est prevu pour une 
adaptation eventuelle pour disquette. Bref, un pro- 
gramme d'une excellente qualite, tant sur le plan 
gestion que sur le plan programmation et presenta- 
tion. 

Bravo HUMBLOT 
N.D.LR. 



I - DESCRIPTION : 

Ce programme comprend 5 fonctions : 

- Enregistrement d'une fiche adresse 

- Modification d'une fiche 

- Visualisation d'une fiche a I'ecran 

- Tri alphabetique du fichier 

- Impression des adresses 

- sous forme de liste 

- sur etiquettes autocollantes 

II - DEROULEMENT D'UNE "EXPLOITATION" 

une exploitation du programme de gestion du carnet d'adres- 
sespeut se composer des 6 phases suivantes. chacune d'elles 
etant facultative. 
1 - Charg ement du fichier en memoire , a partir de la cassette 



sur laquelle il se trouve. s'il s'agit d'une mise a jour (ajoul ou 

modification de fiches) ou d'une cons ultation dun carnet 
d'adresses existant (visualisation a I'ecran ou impression sur 
papier). 

2 - Choix de la fonction a executer : 
Mode d'em p loi : 

Le "menu" des fonctions possibles (§ t ci-dessus) etant affi- 
che a I'ecran, positionner le curseur (a gauche des rubriques) 
en face de la tache choisie. a I'aide des touches de deplace- 
ment vertical t et ', puis taper *. 

Pour la saisie et la modification de fiche. voir mode d'emploi 
§ III ci-apres. 

3 - Con stitution d'un fichier "mouvements" sur cassette : 
S'il s'agit d'une mise a iour du carnet d'adresses. la pnssibilite 
est offerte a I'utilisateur d'enregistrer sur cassette les mouve- 
merits (nouvelles fiches ou fiches modifiees) au furet a mesure 
de leur saisie. 

Cette precaution pourrait s'averer utile en cas de coupure de 
courant ou d'action malencontreuse sur la trappe de cartou- 
che MEM comme cela arrive parfois... 

4 - Tri al p habeti q ue des fiches adresses 

L'utilisateur a la possibility a tout moment d'effectuer le tri al- 
phabetique des fiches adresses (a executer en particulier 
avant I'edition de la liste). 

5 - Im p ression 

Limpression du carnet d'adresses peut etre obtenue soit sous 
forme de liste (exhaustive) soit sur etiquette autocollante 
(partie "adresse" seulement). 

6 - Enre g istrement du fichier a p res mise a jour 

Apres une mise a jour, il est possible d'enregistrer sur cassette 
magnetique. une ou plusieurs fois. I'ensemble du carnet 
d'adresses. 

Ill - SAISIE ET MODIFICATION DE FICHE : MODE D'EMPLOI 
1 - Dep lacement du curseur dans I'ecran (fiche en creation ou 
en modification) 

Les reponses aux rubriques doivent s'inscrire dans le rectan- 
gle bleu clair place a droite de chacune d'elles. 
(la derniere rubrique, "Intitule courrier", viendra s'imprimer a 
gauche du nom sur la liste des adresses et sur les etiquettes 



autocollantes ; repondre MR. MME. STE. etc ) 
Le curseur peut etre positionne a un endroit quelconqu* de 
I'ecran (sans pouvoirsortir des zones desaisie) a I'aidedM fil- 
ches .. 1, • . •. Son deplacement ne modi'".' paj ce qui a etesai- 
si precedemment et affiche a \*ei 
Le changement de ligne peut etre provoque de trois facons 

a) aclion sur la louche ENTREE : 

b) le curseur est arrivee en fin de zone : 

le curseur passe au debut de la ligne suivante 

c) action sur lune des touches 'ou . : le curseur passe selonta 
cas sur la ligne superieure ou sur la ligne suivante 

II est possible a tout moment derevenir sur une zone dejarem- 
plie pour la completer ou la modifier, 

L'action sur la touche RAZ provoque I'effacemenl de la ligne 
sur laquelle se trouve le curseur. etle positionnement decelui- 
ci en debut de ligne. 

L'action sur la touche STOP provoque ('interruption de la saisie 
ou modification en cours et renvoie au MENU. 
2 - Fin de saisie ou de modification d 'une fiche 
Lorsque le curseur sort de la derniere ligne de la'fiche (Intitule 
courrier) il se positionne automatiquement sur la case VALIDA- 
TION (au centre de I'ecran. marquee ENTREE, qui se colore en 
rouge). 

Trois actions sont possibles : 

a) Pour VAL1DER la fiche qui vient d'etre saisie et I'enregistrer 
au carnet d'adresses : appuyer sur ENTREE. Apres quelques 
secondes le MENU apparait. 

b). Pour MODIFIER la fiche, appuyer sur la touche de deplace- 
ment du curseur vers la droite : — . Le rectangle de droite mar- 
que ' devient rouge. Appuyer sur ENTREE ou sur la touche de 
deplacement du curseur vers le haut : ; (ou sur- pourreveniri 
VALIDATION sans modifier). Le curseur se place sur la premie- 
re ligne de la fiche : pour modifier ce qui doit I'et re voir § 1)1.1. 
c) Pour ANNULER la fiche, appuyer sur la touche de deplace- 
ment du curseur vers la gauche : -(RAZ est accepte), le rec- 
tangle de gauche (marque RAZ) devient rouge. Appuyer sur 
ENTREE ou RAZ (ou sur - pour revenir a VALIDATION sans An- 
nuler). 



28 CLEfiRieeB- SCREEN 9, 4.5 CONSOLE 6.24,0 CLS DEFIN7 A-M.T-Z 

30 din use iae>,p* 188 ■ 

49 DATA " pyis taPez un ESPACE , sinon ■ *" 

30 DATA '■ meitez le magneto, en ENREGISTREMENT" 

60 DATA "VISUflLISRTIOH D'UNE FICHE". "CRERTION F>'UHE FICHE", "MODIFICATION D'UNE F 

ICHE"."TR1 DU FICHIER". "IMPRESSION". "FIN DE TRAITEHENT" 

78 DRTR "NOM","PRENOM", "TELEPHONE". "DIVERS". "ADRESSE RUE" , "BATII-1ENT". "VILLE", "C 

3DE POSTAL ", "INTITULE COUPR." 

& ' 

■3 GOSUB 2160: IF r=2 OR fl=12 THEN 25S9 



;30 



";QI« 



40 RESTORE 60 FOR 1=0 TO 5' 
150 PERD 01* LOCRTE 7. 13*1*2: FPINT 
160 NEXT I'Y»1 

173 LOCRTE 0,24 .-FOR 1 = 1 TO ia<PRIKT'NEXTI 

190 CONSOLE 9.24.9X0LOR 8,3^L0CRTE 9, 14 PRINT"VOTRE CHOIX 
198 LOCfiTE 7,Y,1 

£00 R*-INKEY*;IF R*="" THEN 20B ELSE fl=RSC<R*> 
210 IF fl=2 OR R=12 THEN 2410 
220 IF R-42 THEN Y=Y^2;G0T0 249 

230 Y=Y+(R-11 RNO Y>1 )*2-<R=19 AND Y<1 1 >*2'GOT0 190 
249 Yl-CY-1 >*2 Y2=Y*2+1^C0L0R,4 
239 FOR X=0 TO 39 

260 LINE <X+5,9>-<X*5,Yl V " 'LINE <X+5,353-<X*5,Y2i" " 
278 NEXT X 

m - 

;~<8 IF D=8 AND CV<>2 AND V<>6> THEN 128 

308 ON Y GOTO 320,1370,420,388,740,2410 
318 ' 



CONSOLE 9,24,1 

RFFICHHGE DU MENU 



'COLOR 4,6;Y= 



328 S*-"V"< GOSUB 479' 

338 IF N»-"" OR N»=" "THEN 120 

340 CLS'GOSUB 1759G0SUB 1808 

338 BOXFU20, 172>-t 199- 188 i. 1' COLOR 9,6 

360 LOCATE 18,22:RRINT"ENTPE£" - 

378 R*-""R*-INKEY* IF R*="" THEN 379 ELSE R=ASC<P*> 

308 IF R-13 THEN 320 ELSE IF fl=2 OR A=12 OR ft=32 THEN 120 ELSE 370 

398 ' 

499 Sf-"C":GOTO 1380 

418 



VISUALISATION DE FICHE 



420 
433 

443 

436 
4«6 

473 

48B 

4S0 

see 

sie 

92B 

538 

He 

968 



618 
626 

S?0 
646 
696 
666 
678 



GOSUB 478' 

IF N*="" OR N*=" ' 

Si="M"^G0T0 1380 



MODIFICATION DE FICHE 



COLOP 0,4 CLS' ROUTINE DE RECHERCHE D'UN N0I1 DANS LR TABLE 

LOCATE 7.19 N*="": INPUT "NOM i ".NSIF N*="" OR NS=" " THEN 369 

A^RSC'H*-': IF R=2 OP A=I3 OP A=12 OP fl=32 THEN 560 

FOR C=l TO D 

IF N*'ON* THEN CX=C GOTO 569 

NEXT C 

LOCATE 3,12 PR1NT"I1 n'exis-te Pas de fiche a ce nom " : 

INPIJTWAIT 558. 5, P* 

GOTO 470 

RETURN 

LOCATE 9-14 COLOR 0,3<PRWT"1 > *Uent*z.. ." TRI DU FICHIER" 

CONSOLE 23,24: COLOP n,4 

FOR CX=1 TO D 

H16-NKCX •NP1«=P*'X>:> IF Hl»<>"" THEN 639 

nee cx >=+»■* d • ?*' c:-: >=p*' v • ■ t-=p-i goto 610 

FOR XX=CX+1 TO D 

IF N»tXX»-Hi» THEN 669 . n , iiM- 

M2twHi*=HP2«-NPI*'Nl»-N»<XX ■ NP1*=P*<XX- N»<XX>H2»'P»<XX>"NP2e 

NEXT XX 

IF N1VONKCX) THEN HS'CX^Nl* P«'CX>=NP1* 

PRINT CX,MKCX> 

CONSOLE 9.24CLS LOCATE ?.14 FPINT"LE TRI EST TERMINER 
INPUTUAIT 720;5-R» 
GOTO 129 



ETRT NORMAL 



749 COLOP 9.4CLS' IMPRESSION DU FICHIEP 

?50 LOCATE 4.7 PRIHT'IPIPRESSIOH/PflPIER NORMAL ' I":pRINT 
760 LOCRTE 4.? PP!NT"ET1PUETT£S AUTOCOLLANTES ■ E" PRINT 

m> LOCATE 4.11 PRINT" PAS D'EDITIOH .'FIN) i F" 

?m LOCATE 37.11 

798 R6-1NKEY* IF P*="" THEN 799 ELSE A=ASC' V R»> 

R69 IF ft=2 OP fi=12 OP R=32 THEN 129 

310 IF A=73 OP. fl=195 THEN 949' 

820 IF fl=6? OP A=10i THEN 1930' 

830 ' 

949 GOSUB 1258 IF A=2 OP A -12 THEN 129' 

859 0PEN"0".2,"LPPT •'39'" CP=1 GOSUB 1310 

i?69 FOP CX=1 TO £■ 

879 IF N»'CX>-~" THEN 1909 ELSE IF CL-62 THEN GOSUB 1390 

889 FOP B=l TO 6 0%' & •="■' NEXT B 

899 P*«P#(CX)-Y«17 L=LEN'Pt> IF L-9 THEN 930 

990 FOP B=l TO 8 

910 F-IHSTJWP*,"*') IF F-r OR F«9 THEN F«Y 

920 0»<B)-LEFT»<P«,F*<F<YJ>'L-L-F P»-PIGHTt(P«,L ) 

939 IF B«6- THEN Y-5 ELSE IF B-7 THEN Y»4 

940 NEXT B 

959 PRINTt2,U8INGVS V , 0*' i} ;■ . PPINT»2.USING"V. >.".H*<CX>* 

960 FOP B»] TO 3 PRINT»2,USING"^ V <0*' & •- NEXT B PRINT#2 
979 PPINTH2." 

989 FOP 6=4 TO 6 PPINTB2, USING"* '•-".Ol'B); NEXT 8 

999 PPINTt2, USING"* \">OV?) PPIHH2 CL-CL*3 

1900 NEXT CX 

1010 CLOSE2 GOTO 120 

1920 ' 

1039 GOSUB 1239 IF fl*2 OR R =12 THEN 128* ETIQUETTES 

1049 0PEN"0-.2,"LPPT '80'" CLS CONSOLE 0.3 LOCRTE 0,3 

1850 FOP CX-1 TO V 

I860 IF MKCX>" THEN 1239 

1070 FOP B-l TO B 0*:B>-" NEXT B 



■ Wt'CX'. 



i PRINT N*'CX> PRINT pRlNT"t?Pez ESFmCE pow if»f rimer l'eti4u«tt*" 

« PRINT PRINT" 1 Pour NE PRS I ' iMPrlmr" 

i R*=INKEY8 IF RS="" THEN 1180 

I R*flSC<R*) IF fi=42 THEN 1238 ELSE IF FK>32 THEN 1109 

! PS=P*<CX> Y=17 ■ L=LEN< P» '.' : IF L=0 THEN 1230 

I FOP B=l TO 9 

i F-INSTRCM. "f>>IP F>Y OR F-0 THEN F=Y 

I 0%'. B >=LEFT$( P». F*' F<Y > > = L=L-F i P*=RIGHT»' P*.L ) 

I IF 6=6 THEN Y=5 ELSE IF B=7 THEN Y=4 

I NEXT B 

I PPINTH2. USING"* * M ;0*r.8V PRINTB2-USING"* 

I PPINTH2, USING"* *",0«f 1).PRINT»2 

I PRINTt2," "; RRINT«2, USING"* *";0»':4> 

i PPIMT#2." "; PRINTH2. USING""-. *-,0»'3) PRINTH2 

J PRINTt2," ■; PRINT»2. USING"* *"j0«(7>) PRINT«2. USING"* 

X".0*'S>:PPINT*2 PPINTt2:RPINT»2 
I NEXT CX 

< closei- console 0.24goto 120 

i clslocate 4.7^if sdat»="" then print"tape2 lr date du jour", < input sort* 

1 locate 4.13 ppint"p0sitionne2 le pftpiep" print 

! locate 4,!5:ppint"pu1s tape2 'espace'"^ r«-inkey»^if r«<>" ■ then1279 else 

;cp*> 

) RETURN 



- CP ■ PRINTH2 CL=2 ■ CP=CP+ 1 RETURN 



' GOSUB 478' 

1 IF 11*="" OP N*=" "THEN 120 
I S»-'M" GOTO 1380 



MODIFICATIOn DE FICHE 



CREATION DE FICHE 

THEN GOSUB 2310'IF A«2 OR A-12 THEN 129 

ELSE 0*=" MODIFICATION DE FICHE ■ 



I S«="C" 

I P»="" N«="": IF NH»-"" AND I 

I COLOP 0.4 CLS 

I IF S*="C'- THEN 0*=" CPERTION DE FICHE 

I LOCATE 10.0 COLOP. 3 PRINT Q* COLOR. 4 

< GOSUB 1759 

< GOSUB 1S99 GOSUB 2979 

* COLOR 1.6 GOSUB 1949 IF A=2 THEN 129 

) ' 

I CI=6-C2=I C3=6 X=16 GOSUB 2110 

I R*="" R*=INKEY» IF R*="- THEN 1479 ELSE A^ASC'R* 1 

J IF X=16 AND A=13 THEN GOSUB 1579 GOSUB 2199:G0TO 129 

3 IF A=2 OR A=32 THEN 129 

3 IF X=I6 AND''A=8 OP B-12) THEN Cl = l C2=6 C?=SX=1 G0SUB2119 GOTO 1470 

3 IF X=16 AND'A=9 OR A=>H> THEN C1=6C2-6'C3-1 <X«32'G0SUB 2110GOTO 1470 

3 IF X=l AND<A=13 OR A=t2 1 > THEN GOSUB 1719 GOTO 120 

3 IF 'X=l RHO R*9'> OR <X»32 AND A=-8 > THEN 1460 

3 IF X=32 RMP<A=ll OP fl»13> THEN GOSUB 2199 X=29 Y=19: GOTO 1449 

? GOTO 1479 



J F=36"IF S*»' 



THEN f 



I ELSE P=D*1 C»D'HISE EN MEMOIRE D'UNE FICHE VALIDCE 




FOR Y=3 TO 19 STEP 2 

0»=""1F Y'17 THEN 1699 ELSE IF Y=17 THEN F=24 ELSE F=23 

FOP X=F TO 29 STEP-1 

R6-CHR6C SCREEN CX.Y)>'IF R»=>" " AND 0»»"" THEN 1629 ELSE 0«»R»*0» 

NEXT X 

IF Y-3 THEN N*' C i^O* ■ GOTO 1660 

B=LEW0»>'IF <Y<I7 AND B<17> OR 'Y-I7 AND B<3) OP CY=>19 AND B'.4> THEN Ot-08 

P*=P»+0* 

NEXT Y 

P»CC)-P6'IF NM*="" THEN 1690 

PRINT#1.N*(C).P*<C> 

RETURN 



16?0 
1649 
♦■"»■ 
1650 

! 670 
1680 
1 690 
17P0 
1710 
1720 
1730 RETURN'- 



ANNULATION D'UNE FICHE APPELEE EN MODIFICATION 



J RESTORE 70:FOR 1=3 TO 19 STEP 2' AFFICHAGE DES INTITULES DES QUESTIONS. 

< READ 01* CHLEN<Ql»>'LOCflTE 17-Q. I'PRINT 01* 

I NEXT I RETURN 

i ' 

! ' 

I COLOP, 6'MISE EN PLACE DES CACHES REPONSES OU PES ZONES D'UNE FICHE EN MOOIF 

1 ' 

I FOP I=? TO 13 STEP 2 LINE C20. I >-< 36, I >" "'NEXT I 

» LIHE(26.17>-<24,17>" " ■ LINE-^O. I9W 23. 19>" " ■ IF S*-"C" THEN 1920 

! LOCATE 20,3'PRINTN«<CX)i 

I P«=P*<CX>Y-17a=LEN(P*>IF L'9 THEN 1929 

) FOP B"l TO 8 

) F-IN3TR<P»/'*"> IF F>V OP F-9 THEN F-Y 

> 0*=LEFT*<P*.F*(F<Y>) 

J L-L-FP*»PIGHT«''P*.L -LOCATE 29.9*2*3 PRINT 0*1 

I IF B*=6 THEN Y-5 EL^E IF B-7 THEN Y-4 

i NEXT B 

« RETURN' - 



SRISIE PES PONNEES ET AFFICHAGE DANS L'ECJWH 



1 X-29 Y=3 F"36' 

! LOCATE X.Y.I 

I R*a""-R*"INfEY« IF R*-"" THEN 1960 

i fi-ASCP«WF RN31 THEN 2999 ELSE IFA-1? THEN ) 

I IF fi"2 THEN 2930 ELSE IF A-12 THEN l.INE'20 Y>. 

I IF AV7 AND A^12 THEN 2919 ELSE 1939 

I PPINTR*! ■X-X+l'IF X<-F THEN 1959 ELSE X-20 Y-Y*2GOT0 2939 

I x-X*'R-8 AND X>29''-<A-9 ANP X<F> 

I Yl-Y-KA-lt ANP Y'3'12-'R-19 ANC Y'21 1*2' If Yl-Y THEN 2939 ELSE Y-Yl-X-ft 

> IF Y'17 THEN F-36 ELSE IF Y-17 THEN F-24 ELSE IF Y«19 THEN F-27 ELSE 20% 

< GOTO 1959 

I RETURN'— - ' " — 

I ' 

i COLOPR.4 LOCATE 19,2? PPINT"'—" i LOCATE 26.2? PRINT" — ''". '8AS PC L'CCW 



28^0 LOCATE 6*24<PRINT B nTtTiul« 
PftlNT-Hodlf.") 
2188 CI-6C2-6C3-6X-I6 



1324 PRtNT"V*U6«lon") 'LOCATE Jl.H 

suite pag* 19 



17 



RAID 



Votre piste d'atterrissage est occupee par des im- 
meubles. A vousde la degager pour vous poser. Si- 
non, votre pilote utiliserale siege eject able... Mais 
M a oublie son parachute ! 
Mode d'enploi inclus dans le programme. 

Remy POTIER 



T l-99 



•O OBLL CLEAR 

*© CALL SCREEN (6) 

100 CALL COLORIO, 16, 16) 

1IO CALL COLOR 12, A. t> 

12© CALL MCHAR17, 1,31,333) 

130 FOR D-l TO 29 

140 CALL S0UNDtl.D-H10.3l 

ISO READ '■-■,:.!..■ 

1*0 CALL VCHAR(V,U,40,R) 

170 NEXT D 

ISO DATA 1. I. 72,"?, 6. 2, 13, 6, 3.?. 7, 2. 15.7,3.9,8,2. 16,8,2, 13,9, 1,7, 10, 1, 12. 10,3,7, : 

1,11 

\90 DATA 7, 12, I. 9, 14, 3. 14, 14, 4, 9, 13, 3, 14. 15, 1,9, 16, 3, 14, 16, 4,7. 18, 1,7, 19, 11 

200 DATA 9,20,7.9,23,7,7,24, 11,9,27,7,9,28,7, 10,29,5.7,31, 1, 17,31,1,7,32,11 

210 FOR B-l TO 300 || NEXT B 

220 CALL CLEAR 

230 DISPLAY ATC3,1>:"1* but du jcl. eat do detrulrc la vlll* pour pouvoir atterrl 






4/A 



n 



IF S-l 



THEN 270 



260 DISPLAY AT (23, 1) 

270 CALL KEYfO.K.S): 

280 CALL CLEAR 

2^0 REil 'carflctereg, coul eura 1 

300 CALL CHAR (138, ■' 533555 555533557F" ) 

310 CALL CHAR(141,"0BO80BOBO31C3E7F") 

320 CALL CHARI140, '■7F55337F7F53357F") 

310 CALL CHARU39. ■'7F7F533355555555" I 

340 CALL CHAP164, "000000004060347F-) 

3SO CALL CHAR(4S, -AAFFFFFFAAOOOOO") 

360 CALL CHAR ( 123. "00000000000000000060707F7F20000000000G0000000000007BBAFFFE183 

BIO") 

370 CALL CHARQ32, "0000000000000000000000000000000000001C081C1C1C0800000000000QO 

ooo-> 

380 CALL CHAR(67, "00001B1BOO7E1B24") 

390 CALL CHAR168, "001 83A24 1B3COO00" ) 

40O CALL CHAR(72, "OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOIBI A047B1B 

24" 1 

410 CALL CHARC76, "0O0000000000000O00000000O0000000000000000000000024 183E401 B1B00 

OO") 

420 CALL CHAR(BO, ■'00000000000402010F0307020000000000000000B080EOEOFBEOEOB0800000 

OO") 

430 CALL CHARI84. "001 24A2riB473FOF7F0F7F873A4Al 22OB2246892F4F0FEF8FFF8FCF0AC2AA4 

SO") 

4*0 CALL CHAR(8B. "0101 OFO30OOO0OOO0OOOOOOOO00000O02O40FO2OOOOOOO00O00OO000000O00 

oo-i 

430 CALL C0L0R(2,3, 16: 
460 CALL COLOR (3, 2, 
4Z0 CALL COL0RI14.2 

I sc-< 



6/ 



490 REM *a**icnage ville" 

3O0 DIM H(30) 

310 RANDOMIZE 

320 CALL VCHAR(1,3,50,720) 

330 CALL HCHARI24,3,45,30) 

340 FOR 1-10 TO 24 

330 H(I)-24-(INT(RND*8)*2) 

3*0 L-24-H(I) 

370 C-INT(RND«3)*138 




1 CALL VCHAR(H( I) . I.C.I 
i IF C 130 THEN 610 
) CALL VCHAR(H(I 1-1, I, : 



> CALL SPRITE <»1. 12B.9.> 
1 CALL MDII0NH1 ,0,30) 

i GOSUB 82'J 

- Call KEV(0>K,S1 

• IF ►-■: ,32 THEN 670 

> OOSUB B20 

J CALL SPRITE{»2, 132,5,1 



I S-lNTf X/B>- 



>23 



770 



IF POO THEN 920 ELSE 720 

CALL P05ITI0N(»2, YY.KX) 

IF YY<176 THEN SOO 

CALL DELSPRITE142) : : GOTO 670 

GOSUB 820 

GOTO 770 

CALL POSITION(1I1,Y.X) 

IF Y>-I6B THEN 1O0O 

IF X-:24B THEN 900 

CALL LOCATE (»1, Y*B,X1 



'!»[• 



►24). 



B70 FOR R-10 TO 24 

880 IF YI>-H(R)THEN 1170 

B90 NEXT R 

900 RETURN 

910 REM destruction immeuble 

920 CALL DEL5PRITE(»2) ii CALL 

930 CALL HCMAR(24,S,45) 

940 5C-5C+10O 

950 H(S)=H(S>+4 

960 IF H<5>>23 THEN 670 

970 CALL HCHAR(H(S)-1,S,64) 

980 GOTO 670 

990 REM »»atterrissaqe«- 

10O0 CALL L0CATE(W1, (21»B)*4,: 

1010 VX-20 

1020 CALL M0TI0N("1,0,VXJ 




CALL SOUND (700, -5, B 



'X-VX- 



.20 I 



1040 GOTO 1020 



IF 



-0 THEN 1050 



♦1 



1000 
1090 
1100 



1200 
1210 
1220 
. 12. 



1260 
1270 
1280 
1290 
1300 



A«<>' 
1370 
I3BO 



IF B>10 THEN 1 130 

CALL HCMAR(23,24,67) 

FOR 1-1 TO 150 :: NEXT I 

CALL HCHAR(23,24,68) 

FOR 1=1 TO 75 :: NEXT I 

GOTO 1060 

SC-SC+IOOOO 

CALL DELSPRITE(ALL) :: CALL CLEAR 

GOTO 490 

REM »«perdu-» 

FOR B-l TO 75 : t NEXT B 

CALL P0SITI0N(#1,Y,X> 

CALL 3PRITE<"3,72, 14.Y.X) i i CALL SOUNDIBO 

CALL MDTI0N(»3,-13,0) 

FOR B-l TO 150 t: NEXT B 

CALL POSITIONS!. Y,X) :: CALL DELSPRITE (HI : 






CALL S 
j: CALL 



CALL SOUND(100,-6,0) : : COLL S0UND11000, 

FOR T-l TO 20 : : NEXT T 

CALL PATTERN(»3,76J 

CALL M0TIDN1H3,23,0) 

CALL P0SITION(#3, YYY.XXX): : IF YVY>-176 THEN 1290 

GOTO 1260 

CALL 0ELSPRITE1W3) : : CALL SPRI TE (-6. 88, 9, 1B4, XXX*- 

FOR B-I TO 300 :: NEXT B 

CALL DELSPRITE(ALL) 

CALL SCREEN! 16) 

DISPLAY AT(2,B) I "scora final I " ; SC 

IF SOIOOOO THEN 1360 

DISPLAY AT(7,l):"vou- n'jVM pas ren.pl i votremi asion" 

DISPLAY ATI10, 1) : "vouler vous rejouer o\n 7 " :: ACCEPT 

o" THEN 1380 

CALL 5CREEN(6)n GOTO 480 

END 



CALL S0UND<100,-3, 1) 



<10,27)(A* ! 



STAR WAR 



Quelques routines sonores, du graphisme, la sau- 
vegarde en fichier du nom du vainqueur et de son 
score, melangez le tout puis rajouter un peu d'as- 
tuce et vous obtenez Star War un jeu sur Canon 
X07 qui se compose de trois scenarios differents. 
Yves BURGALIERES 

CANON %GJ 

Mode d'emploi : 

1*'* mission : Alors que votre planete, Arisia. se dessine a gau- 
che de I'ecran, voici venir une vague de meteorites que vous 
devez annihiler avec votre vaisseau avant qu'elles ne s'ecrase 
sur votre monde. Le de placement de votre vaisseau se fait par 
les fleches et du curseur et le tir par la barre d'espace. 
2* mission : L'Etoile de la fvtort. 

Vous suivez un vaisseau ennemi se dirigeant vers I'etoile de la 
mort, puis dans les structures meme de cette etoile apparalt 
au milieu de i'ecran : I'ennemi. Votre vaisseau est place au bas 
de I'ecran, vous y decouvrez votre Cockpit et vos deux canons. 
Vous deplacez la ligne de mire de vos canons par rapport a 
I'ennemi grace aux quatre fleches de deplacement du curseur. 
Votre tir s'effectue en appuyant sur la barre espace. 
3* mission : De ret our sur votre planete natal e, Arisia, vous de- 
vez cette fois, la proteger non pas des meteorites, mais des 
vaisseaux ennemis qui eux aussi possedent du materiel offen- 
sif. Deplacement et tir s'effectuent comme pour la Mission 1. 
lorsque les 3 missions sont achevees. le cycle recommence, 
mais la difficulty du jeu s'accrott. 

Vous disposez d'un vaisseau au depart et en acquerez un autre 
tous les 10 stages. 

Deplus, lorsque vous arriverezau 20" stage, votre canon tirera 
plus vite. 

Le meilleur score etle nom du vainqueur etant conserv6s dans 
un fichier, il est necessaire de taper la sequence suivante 
avant le tout premier RUN et ceci une fois pour toute. 
Reservez 50 octets dans la Ram fichier grace a la commande 
FSET, puis tapez : 
IHIT 17-RECORD-.50 
PRINT I.O.'NOM- 

Malntenant bon jeu. et essayezdebattremon record qui est de 
27«7 points. 




i CLEAR200: A-ANDIO) :ET-1 

;i :p-i : v-i:consoleo,4,o. 
t qnerpoivgoto3000:gosub; 



■leiBEEPI, I ! NEXT 



i BEEP0,3:BEEF-6O,; 



I 1281- -0.72, 132,1 BO, 232, 18' 



■129T01S9:READD»TFONT»(I»I-D 



l:HEADD«rFONT« 



■.-«TJim.::i 



• CHR« 12231 •CHR«(22A> -CHIJll 



L0CAT£9*RND(] 



• , 124, 16,36,248,36, 
.4,76,176, 120,120,3 



2103 fi-o:f2-o:rm-rn*.03:ifpthenc«-c 

hr*(1z9iel8ec*-c»r*< 134) 

21 io fohi-oto3:a»i i )-■ ■: next: fori -or 



2112 IFBNOC 



LQCATE2,. 
2200 Wl-t 



•■•:«ext:nex' 



FORK- 1T013:READA,D: PRESET (A 


bi:n 


2202 IFRNDI I 1 }RNTHENBS-CSEL5EB«-- ■ 
2204 A»IC*J-RIGHT»[A*(C»J ,131 ■B*;OOE 


LINE 132, 291 -(67, 29): LINE (37 


261- 


UB2800 

2210 lFCXt >THTHENL0CATE2,CX:PRINTA»( 


fork-ito19:reada,b:pset<a,b 


INSX 


C%i i :Cosub2800:goto223o 

22zo locates, cx: printrioht»(a»(c%i , i 


LINE (38, 31 1- (43,261 1LINE 142 


311- 


2230 K-0: IF!NSTRIO«(C*) , C»J - 1 THEN233 


LINE (81, 31 I -(76, 261 : LINE [77 


311- 


2240 IFINSTR(A«iK>,C»l-0THENIFK-3TME 


LINE(47,0!-C47,24I:LINE-I72 




N23OOELSEK-K*i:G0TO224O 






2230 50SL1B2700:FL-1 :GQT02200 


LINE.0,24)-, 47.16. :line< 72. 


I6J-I 


7300 for1x-1t03:circle118,y»»b«4j .ix 
*2:beepi%*2, i:next:ooto29oo 


LINE (47, 7) - 13,0) :LINE(72,7) 


-1114 


2300 IFMOH11THEN2310ELSECLS: PRINT: PR 
INT-fM V«gu» mulvant* *»• 1 :HOX-HO**1 


is-m.i: ifix>ztheni%«o 




2303 Q0SUB3000IGOT02110 


JX-J*«1 




2310 SA-SAtINT(Fl/F2«ET»101 :CLS:LOCA 


IFJX>-QTMENNX-NK«l: 1FNH>-WT 




TE3, l:PRINT*Scor» : -ISA: LOCATES, 2 :PB 


ex*-rnd(u»4«b:t%-rnd(1)»3: 


x-o 




A-STICK(O) r IFA-OTHEN300 




2320 oosub3ooo:et-et-i:goto4ooo 


IFA-1THEN1FYX< >2THENY»-YX* 1 


GOTO 


2350 f0rix-oto13step3:cirgle(0, 13) , i 
x:beepi3-i*,2:next:goto290o 


IFA-3THENIFX%OBTHENXX-XX-l 


GOTO 


2702 BEEP30, i:n*-instria«iysi ,c*i :zx 


IFA-3THENIFYXO0THENYX-YX-1 


OOTO 


2710 IFNX-OTMENL 1«E 119,2*1-1 107, Z»)E 


IFA-7THENIFX%< }1 1TMENXH-XX. 




LSELINE(19,Z\>-INX»6*4,Z*> 


LOCATES, 1 :PRINTA»IIX, 1) | !L0 


ATE8 


2720 A«1YX1 -LEFT»IA«(Y*1 ,NX-1 1 •" '|R 


rinta«( i%,oi i :locate8,2:pri 


TA«< 


2722 F0RS-20OTO2O2: BEEPS, I JNEKT 


LOCATEXK, YX;PRINTCHR«(12B) 1 




Z723 locatenx*i,y*:paint- -cfori*-i 


IFSrRIG(0!-0THEN210 




TD3STEP2:ClRCLE(NX*6.B,ZXI,I1t:BEEP48 


BEEP30,3:LINE(48,23) -139, 12 




, It NEXT 


,23)-(60, 121 :BEEP3,Z 




2730 LOCATE2,YH:PRINTCHR«(12BI!RIOKT 






BEEPO, 2 : FORK- 1T031 CIRCLE (36 


11) , 


2740 IFET>19ANDFL"1THENFL-0:00SUB280 



2B0I 



. r i c K 






FAX-3THENK-IELSERETURN 
CArE2,Y*:PRINT -i:yx-y»«K!RET( 

2900 gosub30oo:v-v-i: ifv-othen: 

2902 oosubbooo:p-ap:got04003 

2903 cls:print-score FINAL :*(1 
NTE«IE*I :OOEUB3000 



'10 IF! 



.UB3OO0ELSE2V 



2920 CLS1L0CATE2, l: INPUT'Uotr. 
iNN»r 1NIT«1,'REC0R0-1PRINTH1,E- 

2930 gosuB3ooo:cls;locate6,o:pi 

V r-.vnlr- •:L0CATE6, 1 

2933 PRINT-Et qua l»':PAtNT" 

2940 00SOB3000:End 

3000 iferl-2810ti1enre6u'ie3040 
3010 iferl-2720thenresuhc7730 

3013 IP!BI.-;.r,'IIIINI(-,- /lln.NiM 

3020 PAINT'ERROR-IfiND 
30ao RETURN 



i :oosui3000 
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BASES 



■ ■!■ I,..,. | | 



1070 ,. .. 
LOBO FOR J*l 
1090 H»U II 



IU STCP 



/oici un petit programme qui va vous faciliter la vie pour 
la programmation en langage machine... ou toute autre 
ictivite. II vous permettra d'effectuer tous les change- 
.nents de base (2 a 36) ainsi que les quatre operations. 

EricGESZKA 



TILISATION 



l-j CALL CLEAR 
D LT.L.L SCREENI2) 
230 FOR T = l TO 12 
240 CALL COLOR! T, 16, 1> 
230 NEXT r 
260 print ■ ■•*••■.*■.■..........> 

270 PRINT " • ■- 

280 PRINT " • BASES »■• 
290 PRINT ■■ • »- 

3O0 PRINT '- ■••.■■■.■•.....,•.••» 

310 PRINT ::-.::::::: 

320 FOR P"l TO SOO 

330 NEXT P 

340 DIM R( 100J ,R»UO0> ,6(1001 ,N< lOO) ,M 

330 CALL CLEAR 

360 PRINT -■•■••*■••*>•••.......•«...., 

370 PRINT ■• , 

390 PRINT "• 1 -> CMANGEMENT DE BASE I 
ADDITION EN BASE B • ";■■•> 3 -> 
SOUSTRACTION • " 
S90 PRINT ■'• 4 =:■ MULTIPLICATION 
DIVISION •••:". ft ; 

FIN DE TRAVAIL • " 
400 PRINT "• 
410 PRINT "• 
420 PRINT "•••••>•■••••■..■.•...... 

430 CALL KEVtO,K,ST> 
440 IF ST=0 THEN 430 
450 IF (K<49) + IK>33J THEN 430 
460 IF K=51 THEN 470 ELSE 490 
470 CALL SCREENI41 
*80 GOTO 300 
'90 CALL 5CREEN(K-43> 

SOO ON K-4B GOTO 510,1310,1600,1920 
10 COLL CLEAR 
^0 REM 
PRINT " CHANGEHENT DE BASE" 

1 PRINT - 

PRINT :: : : 
INPUT "NDriBRE : ■' : At, 
■~> PRINT 

INPUT "BASE DE DEPART : ":C 
'0 IF C<2 THEN 390 
bOO PRINT 

■10 INPUT -BASE D'ARRIVEE : " : B 
,20 IF B-:2 THEN 610 
JO PRINT ' 

. '.O GOSUB 660 
eSO GOTO 930 
oO IF 010 THEN 730 
i70 FOR 1=1 TO LENIA*) 
S80 RU)°VAL<SEGSEA» 
690 NEXT I 
'00 FOR J=l TO 1-1 
710 G(J)=R<J)e<C"!J- 
.-..'.. NEXT J 



i CALL HCHAR<¥.4«H-1 ,R(J 

• NEXT J 

' Z*="EN BASE "*.STR«£B! 

) FOR P-I TO LEN(ZS> 

> CALL HCHAR(V,4*H*2*P,A! 

I 190 NEXT P 

1200 if kos3 then 1260 
!210 if mc>0 then 1260 
1220 print " est le reste" 
1230 w=mc 



::-.,, c 



I MC*< 



030 



U/N ■ 



ADDITION" 



^1—0.2540,2560 



SOUSTRACTION" 



EN DE NOMBRES ? ; 



IA*1-I*1, 1> I 



' W=G(I-I> 
/-. ■ RETURN 

730 FOR 1=1 TO LEN(A») 
760 R*(I1-SEG»(A»,LEN(A»>*1-I 
770 IF ASC<R*<I> ) -64 THEN BIO 
7B0 R(I)=VAL(R*<I> 1 
790 NEXT I 
BOO GOTO 70O 
BIO R(It=ASC!R*lI) 
920 GOTO 790 
B30 X=W 

840 FOR 1=0 TO lOO 
850 0=INT(W/B> 
860 R(I>=W-D-B 
870 W=G 

880 IF B>0 THEN 900 
B90 NEXT I 
900 FOR J-O TO I 
910 IF R(J>>9 THEN 950 
920 R<J)=R<J! +4B 
970 NEXT J 
940 GOTO 970 
950 R(J)=R<J> »55 
960 GOTO 930 
970 PRINT : 

980 IF K<>49 THEN lOIO 
990 PRINT " "iA»;" EN BASE" 
IOOO PRINT " EST EGAL 

1010 IF D>9 THEN 1040 



,-cv 



J& 



kl* 



1260 PR If 

1270 INPUT "autri 

1290 IF XX*""N" 

1290 GOTO 500 

1300 REM 

1310 CALL CLEAR 

1320 PRINT " 

1330 PRINT " 

L340 INPUT "COMBIEN DE NOMBRES 7 : 

1350 FOR F-l TO X 

1360 INPUT "=> ":N*(FI 

1370 NEXT F 

13B0 PRINT 

1390 INPUT "QUELLE BASE 7 :":C 

1400 IF C<2 THEN 1390 

1410 PRINT ::N*<1! ; 

1420 FDR L=2 TO X 

1430 PRINT ■• + "(N»(L>; 

1440 NEXT L 

1450 PRINT ■■"■ : :: 

1460 8=10 

1470 FOR L=l TO X 

1480 A»=N«<L) 

1490 GOSUB 660 

1500 N<L>=W 

1310 NEXT L 

1520 M<0)=0 

1530 FOR L=l TO X 

1540 M{L>-N(L>+M(L-I> 

1550 NEXT L 

1560 B=C 

1370 W=M(L-1) 

1580 GOTO 830 

1590 REM 

160O CALL CLEAR 

1610 PRINT " 

1620 PRINT " 

1630 PRINT : :: : 

1640 INPUT " COMB 

1650 FOR L«l TO X 

1660 INPUT " => ":N»(L> 

1670 NEXT L 

16BO PRINT 

1690 INPUT "QUELLE BASE ? ":C 

1700 IF C<2 THEN 1690 

1710 PRINT i-Nt>U) • 

1720 FOR L=2 TO X 

1730 PRINT "-"iN*(D ; 

1740 NEXT L 

1750 PRINT " = ": :: : 

1760 B=10 

1770 FOR L-l TO X 

1780 A*=N*<L) 

1790 GOSUB 660 

1800 N(LJ=W 

1B10 NEXT L 

1820 M(0>=0 

1830 MID-0 

1940 FOR L-2 TO X 

1850 M(L>=N(L)+tt(L-l) 

I860 NEXT L 

1870 M(L-1>=N<1)-M<L-D 

18B0 B=C 

IB90 W=IKL-1) 

1900 GOTO B30 

19IO REM 

1920 CALL CLEAR 

1930 PRINT ■ -MULTIPLICATION" 

1940 PRINT " " 

19SO PRINT : :;: 

I960 INPUT "COMBIEN DE NOMBRE ? : ■ 

1970 FOR L=l TO X 

19SO INPUT " ») ";N»(L> 

1990 NEXT L 

2000 PRINT 

2010 INPUT "OUELLE BASE ? : "sC 

2020 IF C<2 THEN 2010 

2030 PRINT ::Nt|])i 

2040 FOR L=2 TO X 

2050 PRINT "*"iN»(L(I 

2060 NEXT L 

207O PRINT '■ = ■■:: :: 

2090 B=10 



090 ' OH L»l TO 1 

00 M null 
1" GOSUB MO 



70 NEXT L 



2190 W=M<L- 1 > 

2200 GOTO Bi:0 

2210 REM 

2220 CALL CLEAR 

2230 PRINT M DIVISION" 

2240 PRINT '■ 

> 2250 PRINT : :: : 

2260 INPUT " COMBIEM DE NOMBRE 7 : " : X 

2270 FOR L=l TO X 

2280 INPUT " -,■ -:H*<L) 

2290 NEXT L 

2300 PRINT 

2310 INPUT "QUELLE BASE ? ":C 

2320 IF C<2 THEN 2310 

2330 PRINT nNtll ) ; 

2340 FOR L=2 TO X 

2350 PRINT "/"INftCL); 

2360 NEXT L 

2370 PRINT " = ■•: ::: 

23B0 8=10 

2390 FDR L-I TO X 

240O A*-N*<L> 

2410 GOSUB 660 

2420 N(L)-W 

2430 NEXT L 

2440 M<0)=1 

2450 M(l )=! 

2460 FDR L-2 TO X 

2470 MIL)=N(L)»M(L~1> 

24B0 NEXT L 

2490 MQ=INT1N(1)/M(L-1)I 

2500 MC-N<1)-M0-M<L-I> 

2510 B=C 

2520 W-MO 

2530 GOTO 830 

2540 END 

2550 REM 

2560 CALL CLEAR 

2570 PRINT " UTILISATION" 

2380 PRINT " ";::: 

2590 PRINT " II CE PROGRAMME VOUS PERMET 

ELCONOUE DANS UNE AUTRE BASE" 

26O0 PRINT * OUELCONOUE.":: 

2610 PRINT ■ Eneraple : 

DE 22 ECRIT EN BASE 10 7' " 

2620 PRINT 

2630 PRINT " REPON5E : 

DEPART : 10" 

2640 PRINT " BASE D r ARRIVEE : 2 ": 

2650 PRINT " 22 EN BASE 10 

BASE 2 " 

2660 GOSUB 2950 

2670 PRINT " C'EST A DIRE QUE PAR 

=0H»2~1*1»2~2+ 1«2"3+1»2*4" 

2680 PRINT 

2690 PRINT " IL EST POSSIBLE DUE DES 

2700 PRINT 

2710 PRINT '• NOMBRE : 1463 

RRIVEE : 12" 

2720 PRINT 

2730 PRINT " 1463 EN BASE 10 

SE 12 " 

2740 GOSUB 2950 

2750 PRINT " EN EFFET UN NOMBRE EST FOR- 

lO CHIFFRES 0,1,2 9." 



s\M pv - e 




■OUELLE EST LA VALEUR EN 



NOMBRE : 22 



EST EGAL • 



UNE BASE OU 
BASE 2. 



1 1 1 IO EN 



DIVISION SUCCESSIVE NOUS ODTENONS 22 



LETTRES APPARA1SSENT 
BASE DE DEPART : 10 



EttMplM- 

BASE O'A 



2770 PRINT '■ OR POUR LES BASES SUPERI- 
! EN BASE 12 



ME DE CHIFFRES, EN BASE 

EURES A 10, IL V A PLUS DE 
O, 1,2,3. . .,9. 10. I I" 

POUR DES "CHIFFRES' ET NON 



2780 PR 1 1 

2790 PR 1 1 

2B00 PRINT " 10 ET II ETAN" 

MBRES. " 

2810 GOSUB 2950 

2B20 PRINT " IL FAUT DDNC UNE CONVENTION D'ECRITURE CAR CES CHIFFRES 

PAS. " 

2830 PRINT 

2B40 PRINT " A => 10, B => 1 1 

2850 PRINT 

2B60 PRINT " DANS VOTRE I MAG 1 1 



NOUS AVONS 
IO CHIFFRES 

POUR DES NO 
N- EX I STENT 



D »> 13 I -> 36" 

A1B -> 10,1,11 ET SURTOUT 



2870 PRINT 

2880 PRINT " IL EST EVIDENT DUE LES 

RONS PAS AVOIR DE CHIFFRES DE" 

2890 PRINT " VALEURE SUPERIEURE A CELLE 

CUL ! " 

2900 GOSUB 2950 

2910 PRINT ■ 2),3>,4),5) PERMETTENT LES 

8RES ENTIERS DIR ECTEMENT DANS" 

2720 PRINT " UNE BASE DONNEE SANS FAIRE 

2930 GOSUB 2950 

2940 GOTO 330 

2930 PRINT 

2960 PRINT " appuyt-r 3ur une touche " 

2970 CALL KEY(O.U.S) 

29B0 IF S-O THEN 2970 

2990 CALL CLEAR 

3000 RETURN 



NOMBRES DUE VOUS ALLEZ EN- 
DE LA BASE SOUS PEINE D P £R- 

4 OPERATIONS *.-,•,/ (avec 
LE PASSAGE PAR LA BASE 10" 



TRER NE DtV 
REUR DE CAL 
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(3 




to 7 




A* 


m ^ 


K 


Yf 






\\j ■ 






4', -36,36,36,36,36,36, 36,36* 






















w 










2189 PRHTT" fwntex 1j. c«*s*t.tf> 1* coflt*TUTtf'PRIHT 

2196 PRINT" f>t -»»tt«Z le ma9netoPhor>* en LECTURE" PRINT 




^^ 






. ^^K.1 












22^10 PE?.TOPE 49:PE°0 01* PPINTQIS 




**. K KlliN 















2210 CONSOLE.. 1 LOCATE 9,24 -FOR I a I TO 7'PR!NT'NE^T 1 




riiNv 1 














?220 R»=IHKEY« IF P»="" THEN 2220 ELSE fl=A8C'P*'' 




V^r* 1 ^ 














2239 IF A=2 OR R=12 OR A=42 THEM 2299 


















2240 IF A<>32 THEM 2229 

2258 OPEN"!". »1. "CASS RMIS" 0=9 CONSOLE 29. 24. 0,0 'COLOR 


O LOCATE 0.24 


F n PTHENP-0EL5EP-1 IGOTOIO 


13100 DATA-O, 12 














2269 IF EOF' 1 > THEN 2280 ELSE DO+1 

2270 INRiJT«I.N«<D).Pt<C'"PRIMT[>,M*<[)> GOTO 2260 




4020 G0T02030 






■sooo fopk-ito4So:next:return 


13110 DATA-O, 232. 0,0,23Z, 0,0,248", "0 












2289 CL0SE1 MF»="FICMEM" - 




6000 JFRnDIIKRmThEnZzoZ 


,Z4B,B,S,200,7Z,7Z,72- 












2299 CONSOLE 0,24; RETURN 




',010 Dl-RNDI 1 l»4:H%«INSTR(A»(DXI ,C»I 


13120 DATA- 72, 72,72, 72, 72, 72, 72, 72", 












2309 ' 




: ifux-otmenzzoz 














2310 COLOP 4,4 CLS BOXF '. 9, 7 >-< 39. 13)" ",9.4iC0L0R 4 




6020 BEEPl,Z:ZX-DX»9'4:CieCLEINX»6'6 














2320 LOCATE 0.14PRIMT" Povr »nre9is*r-r les flches rr: 


ees" PRINT 
















2330 RESTORE W'REflt) Qt* PPINTQI*'PRINT 




6027 FOBF-0T07:00SUB2S00:NEXT 














2149 PESTOPE 40 PEAO OI*-PRINT0I* 




*OZ3 LINEIM»»6-3,;»l-[18,Z»i:FOR3-4V 


•124,0,0,232,0,0,232,0- 












2?50 CONSOLE., 1 LOCATE 0.24iFOR 1=1 TO 7^PPINT NEXT I 




T060: BEEPS, ICMXTi IFDX-V%THENZ300 














2360 Pt=""-P*=IHKEY«'IF P*="" THEN 2369 ELSE A«^ASC(R«) 




6O30 LOCATES, OX: PRINTRIGHT* I A« ID*] ,1 














2379 IF fl=2 OR A=I2 OP R-42 THEM M»I ■GOTO 2499 




31 1 TGOTOZZOJ 














2389 IF A'>32 THEN 2360 




7000 clS;fori-otoio:locatebni]| nil?, 


44, 144-,- 232,0,0,232,0, 0,232, 12B • 












2390 OPEN"0" . • 1 . "CRSS ■ RM1S" NM*-"OWERT" 




MMDI 11*4: print -»-:beep30- I, l: NEXT 














2499 CONSOLE .,0.0'PETUPN 






32,4,4,228,34,36,36,36- 












2419 IF NT*»<>*" THEM CLOSE) 




OLEK(A«l ;L0CATE3*( 1*11 -)•*, 1 














2420 IF 0-0 THEN 2*580 




7020 PBINTLEFT»IA», Jl 1 : NEXT i FORL-1 49 














2439 COLOR 4,4<CL8'B0XF (0,7>-(39- 13>" ".0.4 -COLOR 4 




TO 160: BEEPT.- I »30, 1 : NEXT : NEXT 














2449 LOCATE 0.14'PPINT" Po"^r *™-e9l3tr*r le flcHler 


" PRINT 




13210 DAT A" 4, Z28. 36, 36 ,36, 36,220,4*. 












24-J9 PRINT" flootez UW c*sset»,e 'FICHIER' • 'PRINT 






-36,36,36,36,36,34,34.36* ' 


2110 BOS' 


<71,lB9),Ct 


BOXF< 


129. 


246» RESTORE W'REHP 01* PPINTOI* PRINT 




7040 PRINT- (CI Coprrl9hl':PRINT'S 


13240 DATA-144, 144 




172)- 


'199. 198). C2 


80XF(249.172)-< 


2479 RESTORE 49'PERD 0I« PRINTOIt 










C3' COLOR e,6 








?4Rn rmr.ru F. , 1 LOrRTF 0.?4»FOR 1-1 TO 7 < PRINT 'NEXT I 




7030 OOSUB3OO0:GOSV»3000:RETURH 


13230 DATA*4|232!o 


0^232 Oo! 232-. "3 


2129 


LOCATE 4,22 


PPINT-RR2", 


LQCRTE 18. 


24O0 P*--"P«-IMXEY» IF P*-"- THEN 2499 ELSE R-ASCfR»> 






6,36,36,36,720,4,4 




22'PRIHT"EMTPEE" 


■LOCATE 36,22'PI 


25O0 IF A-2 OR A-12 OP A-42 THEN 2780 






13300 DATA42.2V 34 




94 >; 










2T510 IF ft032 THEN 2499 




«OIO FOB J-1TOZ:EORS-49T060:BEEPG 1 LIN 


,28,60,28,61,28 








2138 


PSET (K.22) 


■-3L0CflTE 


X.22 


1 


2320 OPEN-O'.IM.-CRSS'AMIS" 




EXT: NEXT IMMH/MOOOl RETURN 










2146 


PETIJPN 








2-330 FOP CX=1 TO 








31 




ftO. 30, 69,31,34 


21M 










2*540 IF WOO" THEN 2*560 












63,27,44,28 


2169 


COLOP 4,4 CLS BOXF '9.7 


>-f39 


13)" ', 


2SSfl PRIHTil ,N»<cx>.Pti'CX> 




13O00 a*IA-0,0,*0,3Z,3Z,3»,3*,3*-,-0 


14010 0ATA63,3O 


49 


31 


44,27,43,26,44 


9. 4 'COLOR 4' 


CHOPGEMEHT 


MJ FICHIER 


2T6" JfEXT CX 




. 0, 333, Q.O.Iai.O.O'.'O, 0,232, 0,0, 231 


,23,73,27,74,2* 


73 


2S 


64,27 _ 


2179 


LCCRTE 0.14 


PPIHT" 


Poor 


Chir9«-- 


2*579 CLOSE 1 GOTO 2430 


■ 


••••• 


14O20 DATAI.3,3 




1,3 


>. 3.3.7 ■ 


U flchUr 'PMIS 


••PRINT 






2789 CONSOLE . .0.0'CLSCOLOR 0EHO 



LE LOGICIEL 

DE LA SEMAINE 

L'AIGLE D'OR 

...sur ORIC/ATMOS 




Rien ne m'interessait I'autre 
jour, a la television. Sur le 
point de prendre un roman, je 
me dis : "mais j'ai mon film, 
mon dessin anime". Je n'ai 
toujours pas trouve le secret 
de 1'Aigle d'Or. Le temps de li- 
re la cassette et je me retrou- 
vais chez le marchand en 
train de monnayer mes pie- 
ces contre des bricoles indis- 
pensables a qui veut tenter 
I 'exploration des 63 pieces du 
chateau remplies de chaus- 
se-trappes divers : corde, tor- 
che. pied-de-biche, eau de 
jouvence, etc... 
C'est avec angoisse queje me 
retrouve a la portedu chateau 
mysterieux. Je dis "je", car je 
me vois sur I'ecran, en pour- 
point, chausse de bottes. Et 
j'avance.je recule.je metour- 
ne. je saute, je m'assoies. 
C'est la, entre autre, un des 
points forts de cejeu :sevoir. 
comme par dedoublement, 
deambulant dans les salles 
de ce chateau. Et j'aime au- 
tant vous dire que -lorsque 
vous vous decouvrez etendu, 
les bras en croix. au fond 
d'une oubliette, ca vous fait 



un choc. Et si vous mourrez 
d'inanition. ou perce par une 
fleche traitresse, ou attaque 
par les chauves-souris et que 
vous vous retrouvez devant 
votre propre tombe, au clair 
de June, la egalement vous 
marquez un temps, le temps 
de deglutir avant de vous re- 
lancer courageusement a la 
recherche de I'Aigle d'or. 
Beaucoup d'astuces sont ne- 
cessaires. II faudra demas- 
quer les passages secrets ety 
ramper, boire ou ne pas boire 
les fioles rencontrees. se din- 
ger a taton dans les salles 
obscures, forcer des portes 
et des coffres, echapper aux 
herses et aux fleches, eviter 
les oubliettes et decry pter les 
messages. Bref, voila une 
cassette qui vaut son pesant 
d'or et qui servira longtemps, 
ires longtemps. 
inutile de vous dire de dresser 
un plan minutieux des salles 
ou vous passer et de ne ja- 
mais abandonner les recher- 
ches. 

Ah, j'allais oublier... la touche 
Q pour suicide... 

D. VERRIER 



PETITES ANNONCES 
GRATUITES 



Vds ORIC 1 48K + Peritel + ass./ 
Dess. -I- Forth avec manuel + 50 
prgs + revues + livres : 3500 F. J. L 
AMBROISE, 53 chemin du Per- 
reux 94400 V1TRY SUR SEINE 
Tel. : 681.18.54. 

VENDS SHARP PC 1500 : 1200 E 
+ CE 150 (imprimante) : 1200 F. + 
CE 159 (8 Ko RAM protegee) ; 
700 F. + CE 153 (tablette graphi- 
que) : 900 F + papier + stylos + li- 
vres + malette : le tout 4600 E 
VENDS ret. Manual APPLE !(• 
(U.S.) : 150 F. CHERCHE contact 
APPLE II Region Val d'Otse. Joel 
LEMOINE, 2 rue A. Leyge, Bat 28, 
Esc. 02. 95340 PERSAN. 

VENDS ZX 81 + 16K + clavier me- 
canique Memotech + interface 
sonore + 10 K7 jeux + 3 manuels 
pour 1400 F. (moniteurTVPAL ne- 
cessaire). VENDS SHARP PC 1211 
+ imprimante + manuels : 900 R 
Monsieur RICCARDO. Tel. : 
96Z43.87 (le soir) 

VENDS TRS80MC10(12/83neuf) 
+ memoire 16Ko + cordon ma- 
gneto + Peritel + Alimentation + 
programmes. Prix : 1500 F. C.SA- 
DOUN, Tel. : 430.70.68. 

VENDS HP 41 Bon etat + module 
X fonction + module X memory 
Valeur 3500 F Vendu 2500 F. 
Christophe LEFEBVRE, "La Ro- 
che" CIVRIEUX DIAZERQUES 
69380 LOZANNE. Tel. : 

843.10.28. (apres 20 H). 

VENDS FX702 P (2/84) + int Ko 
(1/83) 1.400 F + "LA CONDUITE 
DU FX" + 10 programmes FX + ai~ 
merai recevoir renseignements 
sur les sorties commutables du 
T199/4A (RS 232C ou manettes) 
retour doc. assure. Fabrice VOA- 
RICK. 52 allee de la Robertsau 
67000 STRASBOURG. Tel. : (88) 
35.69-63. (apres 19 H) 



Vds mod. de jeux pour TI99/4A. 
Parsec : 200 R + Tl Invaders : 
200 R ou 350 Fles 2. Ou Ech. les 2 
ctre Mod. B.E + manuel. M. DE- 
LESTREZ 4 rue Grisson 62210 
AVION. 

Ch. HEBDOG1CIEL N° 1, 2. 5, 6, 8, 
9. 10. 11.12. 14 et pgrs en ts genres 
pour ech. eventuels. Alain DUPUY 
Tel. : 525.34.18. 

Vds APPLEII + 48Ko (81) + led 
disk (83) + mon. Prince 2 pouces 
(coul. Ambre) 1983 + nbrs prgs 
(util. et jeux) : 9800 F Dominique 
RAGNEAU 38 bis av. Rouget de 
Tisle 76610 LE HAVRE Tel. : (35) 
47.39.04. 

Ech. Pgrs pour FX 702P et ATARI 
400. retour assure. Tel. : (35) 
46.37.96 ou (35) 44.60.55. 

Ch, pour Club info, d'unlyceelogi- 
ciels pour APPELII 48 Ko. Mile 
CHANUDEAUD 161 rue des Pyre- 
nees 75020 PARIS. 

Vds pour TI99/4A : mod. CAR 
WARS, CHASSE AU WUMPUS, 
MASH ET JEU d'ENTREPRISE + 
1 K7de20 pgrs: 550E Patrice CO- 
LIN 19 rue Gal Patron 54370 ES- 
SEY LES NANCY 
Tel. : (8) 329.38.47. 

Ch. mod. Tl EXTENDED BASIC + 
Manuel J. Pierre RICAUD 32 rue 
Albert Thomas 75010 PARIS. 

Vds MATTEL Intelevision tbe + 11 
K7 : le tt 2500 R ou la console + 1 
k7 : 1090 E Laurent LETHON 90 
rue Jeanne d"Arc 75013 PARIS. 
Tel. : 583.12.93. 

Vds console CBS (11/83) + 3 K7 + 
Adapt, antenne : 2500 E Olivier 
AZOULAY 8 rue Centrale 69290 
CRAPONNE Tel. : (7) 857.28.03. 
(ap.17 H) 




Vds ATARI 2600 + 24 K7 + man. a 
levier + man. a touches + man. 
Rotatives. Le tout 5000 F M. DU- 
MINY Chemin des Ecus 59600 
MAUBEUGE Tel. : (27) 62.20.26. 
(ap. 17 H) 

Vds SHARP PC 1500 + CE 150 
(imp.) + stylos + papier. Px a de- 
battreHerveANGLADE 
Tel. : 969.26.46. 

Vds ZX 81 + ExL16K + K7 + ma- 
nuel d'inst.. d'util. et de prgs. tbe : 
900 F. J.C. CAUCHY 67 rue de la 
Colonie. 75013 PARIS Tel. 
580.41.01 ou 426.18.98 (le mer- 
credi). 

Vds T199/4A (12/83) + manuel 
d'util. + PARSEC + MUNCH MAN 
+ cordon magneto + livres pour 
T199 + dvs Prgs : 1800 E Eric BAR- 
BET 5 rue des Vergers 67120 
DORLISHEIM Tel. : (88) 38.58.56. 
(lesoir). 

Rech. Manuel pour HP38E M. LE- 
VALLET VAUX LES HUGUENOTS 
78140 AUBERGENV1LLE Tel. : 
095.63.15. 

Ch. pour TI99/4A. ttes ext. ou pe- 
riph. Envoyer liste et prix a M. 
BELMESSIERI. LE PUISAT 73240 
SAINT GENIN SUR GUI ER 

Vds pour SHARP PC1251 ou 1245 
ou 1401 : imp. + interf. K7 SS Gar. ; 
600 F pour DRAGON 32 : DON- 
KEY KONG : 100 F. GOLF : 100 E 
DRA MULT1FICHIERS EN FRAN- 
CAIS (700 Fiches, 13 zones) avec 
livret frcs : 100 E Alain MEYER 45 
rue C. Bernard 75005 PARIS. 



Vds pour ZX 81 : carte sonore Bl- 
PACK SON, 3 canaux + bruit, am- 
pli et H.P Integre, programmable 
en Basic : 250 F. Cartes 8 E/S ; 
200 F Q SAVE ext. + log. (16K et 
64K) : 150 F 300 prgs (30 F pie- 
ce) Util. Gestion, Jeux. D. MET1- 
V1ER 177 rue Diderot 94500 
CHAMP1GNY/MARNE 
Tel. :88Z13.93. (lesoir). 

Ch. pour TI99/4 A mod. B. E : 500 F 
prgs pour Tl parus ds HEDBO. n° 1 
a 8. Eric DAURIS 13 rue Helene 
Boucher 17300 ROCHEFORT 
Tel. : (46) 99.87.46. 

Vds ZX 81 + Ext 16K+ 4 livres + 3 
K7 : 800 F ECREP1N 3 allee Boris 
Vian 93870 P1ERREFITTE 
Tel. : 827.87.22. 
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ORDINATEUR FAMILIAL Tl 99/4 

CONSOLES ET ACCESSOIRES : 

Ordinateur familial Tl 99/4 

Modulareur SECAM 

Cable liaison magneto- cassettes 

Fane manettesjeux 

Mag n«o- cassettes compatible 

TEXAS/RADIOLA avec cable de liaison. 

Magneto -cassette! compatible TEXAS 

marque LANSAY avec table tie liaison. 

•PERIPHERrQUES : 

•Uniie integree de drsquetr.es 

■ Unite exterieure de disquettes 

•Cane extenswn memoiic 32 K 

•CaitePcodc 

•UCSD Fiscal Compiler 

•UCSD Pascal Linker 

■UCSDPasc-ilEdrioi 

•Imprimante Tl 99/4 par Centronix 

•PROGRAMMATION SUR CHSOUETTES : 

"Ficniei d'adresses 

'AidealaprogrammationZ 

'Aide a la program manor i 3 

'Edileuf asseinbleur 

"NB. ; il est netessarrc de posseder 

leboiuef d'e*rens)on['HP1200c( 

PROG RAM M ATION 
Manuel Edit cur assembled 
• MINI MI MOBY .rve< Iraltc iUt 
i langarje a 



ffVrTTerjg aJjaiii. 



n 32 K mdispensab1e| 



ORGANISATION 

■ ,F p-.'-ll flf l,ITK Mf 

. tUonfldifa 

.li'jn rapport*. 



WJIXILES EDUCATION 

-...., ■'.ul.'.iF.wlion I 

!'i..'i Subsracfloni 

■ ii [i.ir vii-meme 

n an MmoUor 

'.■' Ii Of iniiliiiilii.Fli.jri 

M ■ I(/J*K IIK.HI I 

MUIh M-i^ei 



PRIXTTC 

I 790.00 
500.00 
1 70.00 
7 1 0.00 
496.00 

350.00 



2.080.00 
3 SOO.OO 
I 190.00 
I 800.00 
600.00 
600.00 
600.00 
3 000.00 



4 I 5.00 
706,00 
706.00 
500.00 



'-'.', "'J 
t 200.00 ~ 
/95.0O 



7S.00 


Q 


252,00 


1 1 


375,00 


1 1 


706.00 




4 1 5.00 




415.00 


1 1 


147.00 


1 1 


14 7.00 


1 1 


147.00 


I 1 


75.00 


II 


147.00 


! : 


147.00 




14 7.00 


M 


147,00 


1 1 


706.00 




/■•.an 


1 1 



* 




Texas Instruments 



MODULES LOISIRS 
Connect four 
Murari Man 
OlhtlJo 

THe attack 



252.00 


n 


257.00 


1 1 


257,00 


D 


757.00 


1 1 



Jeux video j 
Jeux video II 
Yfehtzee 

Jeux Rd-IfO I 
Jeux Retro II 
NOUVEAUX LOGICIELS TEXAS 

• Retour 

• Demon 

• Mash 

• Ouiger i 



PROGRAMMES MAGNARD : 
L-i porKtu.nifiri enrr.iiicais 
Diviseurs PGCD - (TCM 

PROGRAMMES VIFI NATHAN : 

c.Hiiite nulldnns 
Crimp c( mult 
Mots troises vol 1 
Mots croises vol 7 

PROGRAMMES COLLINS/TEXAS I 
Iritrod ,iuT19?/4|l) 
WfOd an II99/4|7| 

1 1-, ii < ririi<|iir\ des programmes 

dejeux |l| 

!.■■, rrM]rnf|iii'SiJcspi<xjr.rmmi'\ 

« jeux pi 







MODULES ROMOX : 






147.00 


1 ! 


Motor raiser! 


390.00 


1 1 


252.00 


1 1 


Ariteater 


390.00 


1 1 


206.00 


1 1 


Hen petx ed 


390.00 


1 1 


252.00 


1 1 


Princess and frog 


390.00 




14 7.00 


1 1 








206.00 


II 


MODULES FUNWARE : 






1 4 7.00 


n 


Rabbit Rail 


285,00 


u 


14 7.00 


II 


Driving Demon 


285.00 


1 1 


1 4 7,00 


i ) 


Ambulance 


285.00 


1 1 


1 4 7.00 


1 1 


SetntNldi 


285.00 


1 1 


1 4 7.00 


u 


Hen Mouse 


285.00 


u 




LIBRAIRIE TEXAS 99/4 : 








Edition SHIFT : 






257.00 


ii 




155.00 




752.00 


1 1 


Jeux et programmes - Tome 2 


155.00 


: 1 


752.00 
752.00 


1 1 


jeux et programmes - [one i 






Ed. RADIO : 








Piatiquedii 11 99/4. - Niveau 1 








Pr.tlique du II 99/4 - Niveau J 








50 programmes II 99 
















99,00 


1 1 


iiNiMiriiri au HeWei bvk 






99.00 


1 1 


EYROLLES : 

Con tedu hvv/wiiiarij 






1 75,00 




Mtm 1199/4 A/CIYRAI 






125.00 










125.00 




. RS.I. : 






125.00 


" 


ExerdcnpDui 1199/4. i uvr 

Al'.illttlii'l'- II 99/4 All Ml IAN 


90.00 




75.00 


M 


Inter edlltont : 






75.00 




POb CONNORS! 




1 1 






ii', gnncttcluslbuesdujeu 








" 


pom voce U99/4 a 








| • draponiblc en juir 


:J 





* 



Noul tc 




f 1'iaiiiT aupr6s de 






cnti de n '• 


VOlr pu 1 .i >!>.;: i -i OU ■ - ■ ■ - J - - 1 A 


oxperile 


leurcomn 


and*. 






t est dc vo 


I pcrmcttrc dani lei i 






profiler au 




ttole 


TEXAS 










ji .mi i. Kin'iii one memoire 32 K 




rlcurc q 


1 voui pcimcttr.1 d utillser lo LO 




Porter \c Tl a 48 K. c 


■ ■•■' un 1 'I 'ii m'-.h Ii . 1 1. 
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